| Current Path : /usr/share/doc/perl-IPC-Run-0.92/abuse/ |
| Current File : //usr/share/doc/perl-IPC-Run-0.92/abuse/timers |
/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 ;