I have a four day work week, but the day I don't work (Friday) is the only day it is peaceful enough for me to write Perl. That said,

if ($day !eq "Friday") {
 $coffee = 2;
 $coke = 1;
 $beer = 0;
} else {
 $coffee = 0;
 $coke = 0;
 $beer = 4;
}
[download]

And I usually start my weekend once I start slurring my code ;)