#!/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 Fri Jun 21 21:56:02 CEST 2024.