#!/usr/bin/perl

#updated - someone wanted to know what happened in the pub ;)

$boss = "out"; #yay!
&sigh;

sub sigh{
if ($boss eq "out"){
$work = 0;
goto &pub;
}else{
$boredom++;
if ($boredom >= $upper_limit){

sleep;

}
else { lookat(time) && $sigh }
}
}

sub pub{

@drinks =("whiskey","vodka","lager","cider");
@songs = ("good times,", "better times.");

foreach $drink(@drinks){
print "He drinks a $drink drink, ";
}
foreach $song(@songs){
print "He sings the songs that remind him of the $song ";
}

}
[download]