Help for this page
... 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: $!"); ... }