use Filter::Handle;

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