#! /usr/bin/perl -w

use FileHandle;

$fh=FileHandle->new(">blarg");
open(STDOUT, sprintf(">&=%d", $fh->fileno()));
print "foo bar\nbaz\n";
$fh->close();