#!/usr/bin/perl

use strict;
use warnings;

sub test_stderr {
        my $output;

        {
                open local(*STDERR), '>', \$output;
        }

        print $output if $output;
}

test_stderr;
test_stderr;