{
    local $SIG{__EXEC__} = \&_do_redirect;
    system ...
}

##</code><code>##

{
    use redirect qw( 3>&1 1>&2 2>&3 3>&- );
    open my $fh, ...;
    `another cmd`;
}