or even :

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);
[download]

If ou want to go back in a known field...

"Only Bad Coders Badly Code In Perl" (OBC2IP)