use CGI qw(:standard);
print
  hr,
  start_multipart_form,
  filefield('fieldname'),
  submit,
  end_form,
  hr;