...
    $SIG{ALRM} = sub { die 'timeout' };
    ...
    do_work();

sub do_work {
    ...
    eval { ... } ...
    die $@ if 'timeout' eq $@;
    ...
}