Select Code to Download

my $query = new CGI;
my $file1 = $query->param('file1');
...
    Upload("$DIR$FILE/_file1", $file1);
  }
}