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