dwww Home | Show directory contents | Find package

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

Generated by dwww version 1.15 on Wed May 22 22:32:59 CEST 2024.