Sometimes, your computer may know more about how to operate itself than you may think it does, when you are not around ... sometimes more frightenly, even when you are around. This poem tells of a little-known urban legend, that could happen to you one day.

my ($circuits,$e,$caffeine_amount) = ("I am getting very","e",5);
for (my $x=0;$x<=int(rand($caffeine_amount));$x++) {
  sleep($x);
  $circuits = $circuits . " very";
  $e = $e . "e";
  print "$circuits sle$e\py...\n";
}
print "\n\nComputer:>Goodnight ... shutdown -h now\n";
&pause;
print "User:>What?! What are you doing?  Wake up!\n";
&pause;
print "Computer:>Good night ... Dave.\n";
&pause;
print "Computer:>System going down NOW!!\n";
&pause;
print "User:>Now Hal, Hal!!  Knock it off, wake up!\n";
&pause;
print "Computer:>Power Down.\n";
&pause;
print "User:>I hate you Hal.  Screw this.\n";
&pause;
print "*** User leaves room ***\n";
&pause;
print "Computer:>Sucka.  Reboot -n\n";
&pause;
print " ... heh heh heh heh heh heh ...\n";

sub pause { sleep(1) };
[download]

You have to be strict around your computers ya'll, otherwise, it will grow up thinking it is the boss.

Andy Summers