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
