my ($ofh) = select(STDOUT); $| = 1; select($ofh);
$ofh = select(STDERR); $| = 1; select($ofh);

my ($out, $err);

run (
    [ '/usr/sbin/pkgrm', 'VRTSvxvm' ],
    '>', sub { $out .= $_[0]; print $_[0] },
    '2>', sub { $err .= $_[0]; print $_[0] },
    );