#! perl -slw
use strict;
use Filter::Handle;

open FH1, '>', 'my.log' or die $!;

tie *STDOUT, 'Filter::Handle', \*FH1, sub{ $_[0] };

print 'Hello world!', $_ for 1 .. 10;

##</code><code>##

BEGIN{
	open FH1, '>', 'my.log' or die $!;
	*STDOUT = *FH1;
}