#!/usr/bin/perl

my $file = "foo.out";
open my $fh, ">", $file or die "cannot open $file: $!";

printf STDERR "fds before aliasing: fh=%d, STDOUT=%d\n",
              fileno($fh), fileno(STDOUT);

*STDOUT = $fh;

printf STDERR "fds after aliasing:  fh=%d, STDOUT=%d\n",
              fileno($fh), fileno(STDOUT);

print "foo\n";