#!/usr/bin/perl
use strict;
use IO::Scalar;
use Data::Dumper;

my $str;
my $io = tie *STDERR, 'IO::Scalar', \$str;

print STDERR 'foobar';

print Dumper($str);
[download]