if ( ref $thing eq 'GLOB' ) {
       # its a filehandle
   }
   elsif { ! ref $thing ) {
       # its a scalar - the filename hopefully
   }
   else {
      die 'invalid thing : $thing\n";
   }