>>415>>424
my($wait,$time) = (600,time);
while(sleep(1)){
if($wait <= (time - $time)){
$time = time;
print "$time\n";
#ここで処理
}
}

何をするのか分からないが
単純に約10分ごとに秒を出すような処理