Be patient, and you will realize the truth

^{Update: It appears I forgot the ! in #!/usr/bin/perl. Thanks to sintadil for pointing it out}

#!/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}}
[download]

^{--

$me = rand($hacker{perl});}

Comment on Be patient, and you will realize the truth Download Code

Replies are listed 'Best First'.
Re: Be patient, and you will realize the truth by trammell (Priest) on Sep 10, 2004 at 21:16 UTC
`use strict; # :^)`	[reply] [d/l]