eval { uploader($dir, $name) };
print "There was a problem uploading your file: $@" if ($@);

sub uploader {
   my ($upload_dir, $filename) = @_;
   ...
   open UPLOADFILE, ">$upload_dir/$filename" or die;
}