sub Filter {
      my $fh = shift;
      tie *{ $fh }, __PACKAGE__, @_;
    }