package Timed;

use strict;
use warnings;

use Exporter ();

our @ISA    = qw /Exporter/;
our @EXPORT = qw /timed_system/;


sub timed_system {
    my $time = shift;

    my $pid;
 
    local $SIG {ALRM} = sub {kill 15, $pid or die "kill: $!";
                             die "Timeout!"}; # Just SIGTERM.
 
    eval {
        $pid = fork;
 
        die "Fork failed: $!" unless defined $pid;
 
        unless ($pid) {
            exec @_;
            die "Exec failed: $!";
        }
 
        alarm $time;
 
        waitpid $pid => 0;
    };
    die $@ if $@ && $@ !~ /^Timeout!/;
}

1;
[download]

Abigail