open FH , "| cat " or die ;
open STDOUT, ">&FH"or die ;    <-- dup

##</code><code>##

open FH , "| cat " or die ;
                               <-- no dup