#!/usr/bin/perl
use strict;
use IO::Scalar;
use Data::Dump qw(pp);
use Data::Dumper::Simple;

my $str;
my $io = tie *STDERR, 'IO::Scalar', \$str;
pp('monks');
undef $io;
untie *STDERR;

print Dumper($str);

__DATA__
Z:\Perl>ioscalar.pl
$str = '"monks"
';