sub display_alarm {
    print join("-", localtime), "\n";
    die "alarm!";
}

$SIG{'ALRM'} = \&display_alarm;

print join("-", localtime), "\n";
alarm(10);
while (1) {
}