#!/usr/bin/perl

use strict;
use warnings;

sub test_stderr {
        my $output = "";

        {
                open local(*STDERR), '>', \$output;
                print STDERR "CATCH ME IF YOU CAN\n";
        }

        print "\$output is '$output'\n" if $output;
}

test_stderr;
print STDERR "I'm not caught\n";