sub check{
$t = shift || die;
$time = time;
if($t=~/$time/){print "now is the time to die"}
return;
}