print "local *STDERR$/";
{
   local *STDERR;
   system $^X, qw[ -le warn(6) ];
}
print "close STDERR$/";
{
   close STDERR;
   system $^X, qw[ -le warn(6) ];
}
__END__
local *STDERR
6 at -e line 1.
close STDERR