use warnings;
use strict;

main ();

sub main {

	eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
    alarm 2;
    my $data = `ping 127.0.0.1 -t`;
    alarm 0;
	};
	if ($@) {
    die unless $@ eq "alarm\n";   # propagate unexpected errors
	}
	else {
    print "got here\n";
	}

}