gistfile1.pl

sub call_with_timeout {
    my ($timeout, $callback) = @_;

    my $timeout_expired;
    my $completed = eval {
        local $SIG{ALRM} = sub { $timeout_expired = 1; die "alarm\n" };
        my $completed = eval {
            alarm $timeout;
            $callback->();
            1;
        };
        alarm 0;
        die $@ if !$completed;
        1;
    };
    die $@ if !$completed && !$timeout_expired;
    return !$timeout_expired;
}