<input type="file" name="file1">

##</code><code>##

my $filename = $cgi->param('file1');

##</code><code>##

my $fh = $cgi->upload('file1');

##</code><code>##

my $content_type = $cgi->uploadInfo($filename)->{'Content-Type'};

##</code><code>##

upload_file('file1');
upload_fiel('file2');

sub upload_file {
   my ($param_name) = @_;