#!/usr/bin/perl -l

my $file = "file.txt";

print "before";
{
   print STDERR "fileno before local: ", fileno(STDOUT);

   local *STDOUT;
   open (STDOUT, '>', $file) or die;

   print STDERR "fileno after open: ", fileno(STDOUT);

   system("ls");
}

print "after";