-Silent11while (my $alarm eq 'buzzzzz') { print "Good Morning!"; my $stomach = 'empty'; if ($clean_clothes) { dress(); } else{ wash($clothes); skip('breakfast') && go($hungry); } open(CAR,"door") && goto WORK; if ($traffic eq 'bad'){ foreach (@light){ $wait++; } call($office); tell LATE; } else { $speed =~ /crazy/; } close(CAR) if $arived; } my $job = pay(0); while ($busy_work){ do $_; } else { @reading = get('http://perlmonks.com'); foreach $node (@reading){ read $node; &vote('++',$node) && reply($node) if $node > avg($node); } } if ($time > 5){ shout('joy'); seek HOME; } goto SLEEP;
In reply to another day by silent11
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |