Select Code to Download

my ($ofh) = select(STDOUT); $| = 1; select($ofh);
$ofh = select(STDERR); $| = 1; select($ofh);
...
    '>', sub { $out .= $_[0]; print $_[0] },
    '2>', sub { $err .= $_[0]; print $_[0] },
    );

use IPC::Run qw(run);

...
    '2>', '>pty>'
    );