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

##</code><code>##

context 5;
my_sleep { again if $again }