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