use CGI::Upload;
my $upload = CGI::Upload->new;
my $file_name = $upload->file_name('file');