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