Select Code to Download

my ($circuits,$e,$caffeine_amount) = ("I am getting very","e",5);
for (my $x=0;$x<=int(rand($caffeine_amount));$x++) {
...
print " ... heh heh heh heh heh heh ...\n";

sub pause { sleep(1) };