use Filter::Handle qw/subs/;
.
.
.
Filter \*STDOUT, sub { local $_ = "@_"
                       print <FH1> "$_\n";
                       $_};