use FileHandle;

$fh=FileHandle->new(">blarg")or die "error on fh creation";
local *TOTO=$fh;
open(STDOUT, ">&TOTO") or die "Argh: $!";
print "foo bar\nbaz\n";
close(TOTO);