#! /usr/bin/perl -w

use strict;

warn "initial write to STDERR\n";

# open a scope
{
  local *STDERR;
  open STDERR, '>tmp.stderr' or die "Cannot open tmp.stderr for output: $!\n";
  warn "redirected write to STDERR\n";
  close STDERR;
}

warn "final write to STDERR\n";