#!/usr/bin/perl ##################### sit(); breathe() until trance(); enlighten(); ##################### $sitting=0; sub sit {$sitting=1;} sub breathe {return unless $sitting;sleep 1;$time++ unless(rand>0.8);} sub trance {return 1 if (($time > 30) && (rand > 0.6))} sub enlighten {print qq{you are just another Perl hacker}}
In reply to Be patient, and you will realize the truth by radiantmatrix
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |