Select Code to Download

open(STDOUT, '|-',
    bash => (
...
        $outfile,
    )
) or die;

open(STDOUT, '|-',
    tee => ( '-i', '--', $outfile )
) or die;