Select Code to Download

my $error = undef;
my $directory = "./tmp/";
...
    $error = 'Could not create file';
  }
close($filename);

my $filename = $q->param("filename");
&uploadFile("$filename");

&uploadFile($filename);