#!perl.exe
use strict;
use warnings;

print scalar localtime, "\n";

eval {
    $SIG{__DIE__} = sub { alarm(0) };
    $SIG{ALRM} = sub { die "timeout" };
    alarm(3);
    sleep 5;
    alarm(0);
};

print $@ if $@;
print scalar localtime, "\n";