if (ref($param) && defined(fileno($param)) {
   is file
} else {
   isn't
}

##</code><code>##

if ($cgi->uploadInfo($param)) {
   is file
} else {
   isn't
}