##########|###########
$everyday = "Yes, you must work everday!"; ############|############
PushYour: $Sisyphean{'Rock'} = $everyday; ##############| Green spring leaves dont break.
ComeOn: $today = $everyday; #but at least you write perl #############| Use CTRL-Z to end this
GoPushThatRock: while ($today){ #############/|\Frozen leaves dont grow..
##########/#|#\##########
You: push (@uphill, $Sisyphean{'Rock'}); #########/##|##\#########
InSpareTimeReadSome: print $About."@uphill Struggle!\n"; ######/###|###\######
YouMustNot: sleep 1; $SIG{'INT'}=sub{
warn $yourself.$everyday; #in case you forget ##/#####|#####\##
};}#####\#
next GoPushThatRock; ######|#######
#####|#####
####|####
##|##
#
Note: If you try break, it catches it; so it's better to stop (as per the haiku).
Update: Small Change in TitleIn reply to best workday ever by rgiskard
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |