#!/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;
}