#!/usr/bin/perl -w ## Submitted by Dave Mitchell <davem@fdgroup.co.uk> use IPC::Run qw(run timeout); $IPC::Run::debug = 10; warn "parent id=$$\n"; $res = run [ './nosuchfile', 0 ], \"foo", \$out, \$err; warn "running after 'run', pid=$$\n\$?=$?\nstderr=[[[[$err]]]]\nstdout=[[[[$out]]]]\n";
Generated by dwww version 1.15 on Sat Jun 15 21:24:38 CEST 2024.