sub Filter {
    my $fh = $_[0];
    tie *{ $fh }, __PACKAGE__, @_;
}

sub UnFilter {
    my $fh = shift;
    { local $^W = 0; untie *{ $fh } }
}