$ ./test_indirect.pl 2> /dev/null
'print'
'print STDOUT'
STDOUT->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