Help for this page
if (ref($param) && defined(fileno($param)) { is file } else { isn't }
if ($cgi->uploadInfo($param)) { is file } else { isn't }