print start_multipart_form,
   filefield(-name=>'upload',-size=>60),br,
   submit(-label=>'Upload File'),
end_form;