Hi
     Thank you very much for replying back.
  I made the changess thus:
 tie *FH1, 'Filter::Handle', \*FH2, sub { $_[0] };
.
.
 print FH1 "Hello World\n";
But I donot see the Hello World in FH2. That means
my Filter is not working correctly. It would
be of great help if you could let me know.
Thanks