use strict;
use warnings;

use Devel::Peek;

# initialized here
my $sOut = "";

close(STDERR);
open(STDERR, ">", \$sOut) or die "Can't redirect STDERR to \\\$sOut";
my $s=1;

Devel::Peek::Dump $s;
Devel::Peek::Dump $s;
print "<<$sOut>>\n";