$ ./test_indirect.pl
'print'
'print STDOUT'
'print STDERR'
STDOUT->print
STDERR->print
print $fh
$fh->print
$file_handles{test}
print {$file_handles{test}}
IO::File: print $fh
IO::File: $fh->print
indirect! IO::File: $fh->print