请教上传文件时，判断文件类型的一句怎样改写？

请教上传文件时，判断文件类型的一句怎样改写？
我有个上传文件的程序，是用的cgi.pm模块下写的
其中
判断文件类型的一句是

my $mimetype = $query->uploadInfo($fH)->{'Content-Type'};

请问，在不用CGI.pm模块的情况下，这句该怎么改写呢[CCB]10[/CCB]