$query = new CGI;
if ($file = $query->param('filename')) {&parsefile}
print $query->start_multipart_form;
print $query->filefield('filename','',25), "  ";
print $query->reset('Clear','reset'),$query->submit('submit','OK');
print $query->endform;