Like most of you I'm sure, the hours of 9am-5pm are anything but eventful.
For that I thank perlmonks for providing an outlet to my insipid, repetitious hours I spend at work.

while (my $alarm eq 'buzzzzz') {
    print "Good Morning!";
    my $stomach = 'empty';
        if ($clean_clothes) {
            dress();
            }
            else{
                wash($clothes);
                skip('breakfast') && go($hungry);
                }
    
    open(CAR,"door") && goto WORK;
    if ($traffic eq 'bad'){
            foreach (@light){
                $wait++;
            }
        call($office);
        tell LATE;
        }
        else {
        $speed =~ /crazy/;
        }
        close(CAR) if $arived;
}

my $job = pay(0);

while ($busy_work){
    do $_;
}
    else {
        @reading = get('http://perlmonks.com');
        foreach $node (@reading){
            read $node;
            &vote('++',$node) && reply($node) if $node > avg($node);
        }
    }
    
    
    if ($time > 5){
        shout('joy');
        seek HOME;    
        }
    
goto SLEEP;
[download]

-Silent11