use Time::HiRes qw( setitimer getitimer
                ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF );
setitimer(ITIMER_REAL, 3, 1);
$SIG{ALRM} = sub { return };