Select Code to Download

package Filter::Handle;
use strict;
...
*printf = *PRINTF;

1;

my $out = new Filter::Handle(\*STDOUT);
$out->print("Hello world\n");
$out->printf("%s %s\n", "Hello", "world");

tie (*OUT, 'Filter::Handle', \*STDOUT);
select(OUT);
print "Hello world\n";
printf ("%s %s\n", "Hello", "world");