Does the following work for you?

if ('GLOB' eq ref $param) {
    print "filehandle";
} else {
    print "filename";
}
[download]

Update: it doesn't work with things like *ARGV{IO}. See AnonymousMonk's reply below.