Upload File

##

#!/usr/local/bin/perl
############################################
$base = "/usr/home/web67378/www/htdocs";
$folder = "$base/upload";

use CGI;
$query = new CGI;

print "Content-Type: text/html\n\n";
if ($filename = $query->param('graphic')) {
    if ($filename =~ /^([\w-]+\.(jpg|gif|png))$/) {
		      $file_handle = $filename;
		      $filename = $1;
        open(OUT, ">$folder/$filename") ||
            &error('The file could not be written to the server.');
		      while (read($file_handle,$buffer,1024)) {
            print OUT $buffer;
        }
        close($file_handle);
	       close(OUT);
    }
} else { &error('No file was selected for upload.'); }
print "Successful.";

sub error {
    print shift;
    exit;
}