#!/usr/local/lib/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 ;
#!/usr/local/lib/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 ;