#!/usr/local/bin/perl -w
# script name = upload_form.cgi
use strict;
use CGI;
$query = new CGI;

print $query->header;
print $query->start_html;
print $query->start_multipart_form(-action=>"image_writer.cgi"); #below
print $query->filefield(-name=>'file');
print $query->submit(-value=>'Upload File');
print $query->end_form;
print $query->end_html;

exit;