#!/usr/bin/perl
while($alive) {
seek(LIFE,LOVE,HAPPINESS);
study($life);
if($day=~”^S” or $weekend) {
sleep($longer);
tell $theworld, “HOORAY!”;
play();
have($fun);
cut $GRASS;
} else {
sub work {
seek(PROBLEMS,0,1) and study;
$solve and $analyze until $done
};
}
}
fonte: Blog do Eli Rios
