#!/usr/bin/perl -w
use strict;
use Time::HiRes qw( gettimeofday tv_interval );
print "$]\n";
my $elapsed = 0;
my $start_time = [gettimeofday];
eval {
    local $SIG{ALRM} = sub {
        $elapsed = tv_interval( $start_time );
        warn "alarm-timeout signal";
        die;
    };
    alarm(1);
    `ls -R / 2>/dev/null`;
    alarm(0);
};
print "$@"  if $@;
print "$elapsed\n";