Help for this page
$SIG{ALRM} = sub { report(); exit }; alarm(86400 * 3); ... sub report { # your reporting code }