if (!ref $param) {
    # scalar
  } elsif (ref($param) eq 'GLOB') {
    # GLOB
  } elsif ($param->isa('IO::Handle')) {
    # is, or inherits from, IO::Handle
  } else { ... }