タイムアウトをさせない

$|=1;#バッファリング制御
my $interval = 10;

eval {
local $SIG{ALRM} = sub { # ALRM シグナルをキャッチした
print "\n";
alarm $interval;
};
alarm $interval;
# 重たい処理をここでする
sleep 10;
};
alarm 0;
if ($@) {
die "$@";
}

$|=0;#バッファリング制御 元に戻す