eval {
    local $SIG{ALRM} = sub { die "Alarma" };

    alarm 10;
    `perl -e 'while(1) {};'`;
    alarm 0;
};

if ($@ eq 'Alarma') {
    warn "alarm'd";
} elsif ($@) {
    die $@;
}