Select Code to Download

    use Filter::Handle;

    my $f = Filter::Handle->new(\*STDOUT);
    print "Foo";
    print "Bar";

    package Filter::Handle;
...

    1;