sub output {
   my ($fh, ...) = @_

   if (!ref($fh) && ref($fh) ne 'GLOB') {
      open($fh, '>>', $fh);
   }

   ...
}