A vida em Perl…

#!/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 {
[...]