Thanks for that - note however that in addition to capturing STDOUT/STDERR, I still need to have the STDIN/STDOUT/STDERR of the external program connected to the terminal where the person is running the script, in case the external program requires input from the user, and so that any output is immediately visible to the user, in addition to being saved in the scalar(s).

I'll try your recommendation out though - maybe it does give me what I want.

For STDIN/-ERR, just print the output to the appropriate handles yourself. For STDIN, if you have taken control of the subprocesses STDIN yourself, just copy the user input in there yourself. You can do that "realtime" rather than post mortem by passing closures rather scalar refs, if memory serves.

Makeshifts last the longest.

Something like this should work:

use IPC::Run qw(run);

my ($out, $err) = ('', '');
run(['/path/to/prog', @args],
    '>',  sub { $out .= $_[0]; print $_[0] },
    '2>', sub { $err .= $_[0]; print $_[0] });
[download]

--
Ilya Martynov, ilya@iponweb.net
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org