Select Code to Download

package Filter::Handle;
use strict;
use vars qw/@ISA/;
...
}

sub CLOSE { }

#!/usr/bin/perl -w
use strict;
use Filter::Handle;
...

print OUTPUT "Foo";
print OUTPUT "Bar";