my $error = uploader($dir, $name);
print $error if ($error);

sub uploader {
   my ($upload_dir, $filename) = @_;
   ...
   open UPLOADFILE, ">$upload_dir/$filename" or return("There was a problem uploading your file: $!");
   ...
}