Select Code to Download

#!/usr/bin/perl

...
$status{print_2} = print STDERR "2\n";

print Dumper(\%status);

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