#! perl -slw
use strict;

my $x;
{
	local *STDERR;
	open STDERR, '>', \$x or die "STDERR $!";
	print STDERR 'stuff';
	warn 'Sommats up!';
}
print STDERR 'More stuff';
print "Caught: $x";
__END__

P:\test>381308
More stuff
Caught: stuff
Sommats up! at P:\test\381308.pl line 9.