This code represents some developers' daily routines. The code, ofcourse, will not run and is somewhat a pseudo-code.

#!/usr/bin/perl

use strict;


my @days = (monday tuesday wednesday thursday friday);

foreach my $day (@days) {
        while (my $boss = <STDOUT>) {
            sleep 3600;
    }
    if (localtime eq "1200") GOTO(LUNCH);

    LUNCH:
    fork or die("There is no spoon!");

    if (localtime eq "1400") GOTO(MEETING);

    MEETING:
    sleep 1800;

    if (localtime eq "1500") {
            open BROWSER;
            open SLASHDOT && open PERLMONKS;
    }


    if (localtime eq "1800") GOTO(HOME);

    HOME:
    my $beer = "Heiniken";
    open FRIDGE;
    print $beer, ">$STOMACH";
    close FRIDGE;

    GOTO(STRIPCLUB);

    STRIPCLUB:
    exec("find / -type blonde; talk; talk; finger; fsck; fsck; mount; 
+umount; sleep");

    GOTO(HOME) and sleep until next $day;
}
[download]