my $f = Filter::Handle->new(\*STDOUT, sub { "Foo: @_\n" }); print "Bar";