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

何これ(;´Д`)
=~じゃ$tに適当な1桁の数字入ってりゃ何でもﾏｯﾁするじゃん

参考：2006/05/30(火)14時42分43秒