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