#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %status;

$status{print_1} = print STDERR "1\n";
$status{read}    = read STDERR, my $str, 10;
$status{print_2} = print STDERR "2\n";

print Dumper(\%status);

##</code><code>##

1
Filehandle STDERR opened only for output at jam.pl line 10.
2
$VAR1 = {
          'print_1' => 1,
          'print_2' => undef,
          'read' => undef
        };