#!/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 Sat Jun 15 20:15:14 CEST 2024.