#!/usr/bin/env perl

use strict;
use warnings;

$SIG{ALRM} = sub {
    print( "Alarm triggered, making system call...\n" );
    unlink('/doesnt/exist');  # this will definitely fail
};
alarm( 2 );

my $retval = system('sleep 4');

if( $retval == -1 ) {
    print( "system() retval = $retval; " . '$?' . " = $?; " . '$!' . " = $!\n" );
}
elsif( $retval == 0 ) {
    print( "system() returned 0\n" );
}
else {
    print( "system() return $retval\n" );
}