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