Select Code to Download

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

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

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

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

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

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