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