perl 利用CGI模块上传:取得上传的临时文件名以及文件的MD5

use CGI;
use CGI qw/:standard/;
use Digest::MD5 qw(md5_hex);


my $query = CGI->new(\&hook,$PREF_logfh);
my $filename = $query->param('uploadname');
($filename,$file_ext) = ($filename =~ /(.*)\.(.+)$/);
my $upload_filehandle   = $query->upload('uploadname');

my $tmpFileName = $query->tmpFileName( $upload_filehandle );
print( $tmpFileName );

#取得MD5

my $ctx = Digest::MD5->new;          
$ctx->addfile( $upload_filehandle );
print( $ctx->hexdigest );