#!/s/std/bin/perl require "perl4cgi.pl"; &PrintHeader("Emergency Vegetables"); if (&GetInput) # ok, they've clicked on the button to reset { open (META, ">>metabegas.cnt") # open meta for append || die "Can't open $rfile $!"; open (COUNT, ">begas.cnt") # and the regular file for overwrite || die "Can't open $rfile $!"; $rnum = 0; print COUNT $rnum; print META "Someone from $ENV{'REMOTE_HOST'} pushed the magic button!\n"; close META; close COUNT; } else { open (COUNT, "begas.cnt") || die "Can't open $rfile $!"; $rnum = ; close COUNT; } print "

Rutabaga Alert Hotline

"; if ($rnum == 0) { print '

There are no rutabagas here.

'; } else { if ($rnum == 1) { print '

There is a single, innocent, rutabaga here.

'; } else { print '

There are ', $rnum, ' rutabagas here, snarling viciously at you.

'; } } open (COUNT, ">begas.cnt"); print 'Suddenly, you\'re eaten by a'; if ($rnum == 0) { print 'n invisible rutabaga.

'; } elsif ($rnum == 1) { print 'n invisible twin of a good-tempered rutabaga.

'; } else { print ' rabid rutabaga.

'; } $rnum = $rnum + 1; # increment rnum by 1 print COUNT $rnum; close COUNT; print "Now go away. "; print "(or stay)

"; print "