That's easy when you use CGI.pm.

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

-- Randal L. Schwartz, Perl hacker