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) };