Select Code to Download

#!/usr/bin/env perl

...
    $fh->print("indirect! IO::File: \$fh->print\n");
    system cat => $dummy_output;
}

$ ./test_indirect.pl
Bareword found where operator expected at ./test_indirect.pl line 63, 
+near "new IO::File"
...
syntax error at ./test_indirect.pl line 63, near "new IO::File"
Global symbol "$fh" requires explicit package name (did you forget to 
+declare "my $fh"?) at ./test_indirect.pl line 64.
Execution of ./test_indirect.pl aborted due to compilation errors.

$ ./test_indirect.pl
'print'
...
IO::File: print $fh
IO::File: $fh->print
indirect! IO::File: $fh->print

$ ./test_indirect.pl 2> /dev/null
'print'
...
IO::File: print $fh
IO::File: $fh->print
indirect! IO::File: $fh->print

$ ./test_indirect.pl 1> /dev/null
'print STDERR'
STDERR->print

$ ./test_indirect.pl
String found where operator expected at ./test_indirect.pl line 43, ne
+ar "} "print \$file_handles{test}\n""
        (Missing operator before  "print \$file_handles{test}\n"?)
syntax error at ./test_indirect.pl line 43, near "} "print \$file_hand
+les{test}\n""
BEGIN not safe after errors--compilation aborted at ./test_indirect.pl
+ line 47.