Select Code to Download

eval { uploader($dir, $name) };
print "There was a problem uploading your file: $@" if ($@);
...
   ...
   open UPLOADFILE, ">$upload_dir/$filename" or die;
}