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