#!/usr/bin/env perl
use warnings;
use strict;

my $ksecs = 5;
my $csecs = 10;
my $sig = 2;

my $pid = fork;
die "fork: $!" unless(defined $pid);

if($pid == 0){
    exec 'sleep', $csecs; # >1 arg exec to avoid using sh
    die "failed to spawn command: $!";
}

local $SIG{'ALRM'} = sub { kill $sig, $pid };
alarm $ksecs;
waitpid $pid, 0; # waitpid sets $?
alarm 0; # turn off alarm in case child finished before parent

if($? == $sig){
    # we killed it (or someone else sent the same signal)
}elsif($?){
    # child had another error or signal
}