La función openhandle en Scalar::Util
permite saber si una expresión es un manejador de
fichero (o un atado mediante tie de un manejador).
openhandle FH
Retorna FH si FH puede ser usado como manejador y esta abierto.
En otro caso retorna undef:
$fh = openhandle(*STDIN); # \*STDIN
$fh = openhandle(\*STDIN); # \*STDIN
$fh = openhandle(*NOTOPEN); # undef
$fh = openhandle("scalar"); # undef
Casiano Rodríguez León
