Select Code to Download

sub my_sleep(&)
{
   print "sleeping ", context, "seconds\n";
   &sleep(shift);
}

context 5;
my_sleep { again if $again }