sleep $in until (localtime)[2] >= $noon;
`make coffee`;
open THE, "curtains";
unpack my $perlBook, $ponder and $NoNotJustYet;
open THE_FRONT, $door;
$grabCoffee and goto FRONT_PORCH;
seek SUN, $out, $side;
goto COMPUTER;
read EMAIL, $drinkCoffee, $slack;
write REPLIES;
read NEWS, $comics, $pages;
goto COUCH;
chomp $food and study $perlBook;
`make clean`;
exit and seek FRIENDS, $family, $fun;