#!/usr/bin/perl

use strict; use warnings;
use Data::Dumper;


print "".localtime(),"\n";
my $pid = fork;
die "fork failed\n" if !defined $pid;
if ($pid == 0) { # child
    print "child is $$\n";
    exec "/bin/sleep", "4";
    die "exec failed:$!\n";
}
else { # parent

    # there is no code in the parent to kill the child if the alarm is called
    $SIG{ALRM} = sub {
        print( "Alarm triggered, making system call in $$\n" );
        unlink('/doesnt/exist');  # this will definitely fail
    };

    alarm(2);
    my $pid = wait;
    my $status = $?;
    print "return value from child is $pid and status was $status\n";
}
print "".localtime(),"\n";