#! /usr/bin/perl -w

use FileHandle;

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

##</code><code>##

Argh: Invalid argument at chb.pl line 6.

##</code><code>##

#! /usr/bin/perl -w

use FileHandle;

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