use IPC::Run qw(run);

my ($out, $err);

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