use CGI;
$query = new CGI;

$filename = $query->param('file-to-upload');
my ($bytes, $buffer);

open (IMAGE, ">image.gif");
    while ($byte = read($filename, $buffer, 1024)) {
    print FILE $buffer;
Quote:
}

close (IMAGE);

print "Content-type: text/html\n\n";
print "Done Uploading Image";
exit;