Help for this page

Select Code to Download


  1. or download this
    package Filter::Handle;
    use strict;
    use vars qw/@ISA/;
    ...
    }
    
    sub CLOSE { }
    
  2. or download this
    #!/usr/bin/perl -w
    use strict;
    use Filter::Handle;
    ...
    
    print OUTPUT "Foo";
    print OUTPUT "Bar";