##

my $query    = CGI::new();
my $filename = $query->param("uploadfile_0");

next if !$filename;

$filename    =~ s/^.*[\/\\](.*)/$1/;
$filename    =~ s/\s/"_"/ge;

my $upload   = $query->upload("uploadfile_0");

if (!$upload) {
 $output .= "CGI.pm failed to upload the file.";
 next;
}

open(FILE,">$location/$filename") or die "$!";
binmode FILE;
while ( <$upload> ) {
  print FILE;
}
close(FILE);