/usr/bin/perl -w

use strict;
use IPC::Run qw( :all );

$IPC::Run::debug = 10;

alarm 5;
$SIG{ALRM} = sub { die "timeout never fired!" };

my $out;
run [ $^X, '-e', 'sleep 10' ], ">", \$out, timeout 1;