Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...

my $results = do{ local $/; <$cmdFh> };
print "Got: '$results'";

Select or download this

c:\test>junk9 -WAIT=2
Command timed out at c:\test\junk9.pl line 11.
...

c:\test>junk9 -WAIT=11
Got: '12345678910'