print $q->start_form(
			-method=>'post',
			-enctype=>'&CGI::MULTIPART',

			);
    print $q->filefield(
			-name=>'uploaded_file',
			-size=>'30',
			-maxlength=>'80',
	
		);
    print $q->br;
    print $q->textfield(
			-name=>'filename',
			-size=>50,
			-maxlength=>80
			);

    print $q->br;
    print $q->submit (
              -name=>'action',
              -value=>'Upload',
              -class=>'submit',
              );  

    print "</form>";
    print $q->end_form;