alarm(1);
system( "sleep", 10 );

use strict;
use warnings;

use constant {
    TIMEOUT => 3
};

my $pid = fork;
die "Failed to spawn subprocess: $!\n" unless (defined($pid));

if ($pid) {
    $SIG{ALRM} = sub {
        kill TERM => $pid;
    };
    alarm TIMEOUT;

    if (waitpid($pid, 0) == $pid) {
        my ($err, $sig) = ($? >> 8, $? & 127);

        if ($sig) {
            print "Child died from signal $sig\n";
            exit $sig;
        }
        else {
            print "Child exited normally with status $err\n";
            exit $err;
        }
    }
    else {
        die "Error waiting for child: $!\n";
    }
}
else {
    exec @ARGV or die "Failed to run command: $!\n";
}

system("ulimit -t 1; factor 9999999999999999987");