#! C:/perl/bin/perl use File::Copy; $q = $ENV{'QUERY_STRING'}; $rate = 5; open (FIL,">in.txt"); if ($q eq 'right' || $q eq 'left' || $q eq 'window' || $q eq 'door' || $q eq 'center') { print FIL $q; unlink "cam.jpg"; copy("reposition.jpg","cam.jpg"); $rate = 2; } close(FIL); print "Content-type: text/html\n\n"; srand(time() ^($$ + ($$ <<15))) ; my $x = 10000000 * rand(); print < The Great Eski Webcam

The Great Eski Webcam

Page will automatically refresh in $rate seconds.

EOHTML exit;