Select Code to Download

...
open UPLOADFILE, ">$upload_dir/$filename" or die "$!\n";
...

my $error = uploader($dir, $name);
print $error if ($error);
...
   open UPLOADFILE, ">$upload_dir/$filename" or return("There was a pr
+oblem uploading your file: $!");
   ...
}