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