#! /usr/bin/perl -w
 
  use FileHandle;
 
  $fh=FileHandle->new(">blarg");
  die 'Not open' unless defined $fh;
  open(STDOUT, ">&".$fh->fileno) or die "Argh: $!";
  print "foo bar\nbaz\n";
  $fh->close();