#!/usr/bin/perl -w
# formcgi.cgi
use strict;
use CGI;

my $query = new CGI;
print $query->header;
print $query->start_html;
print $query->start_multipart_form(-action=>"test2.cgi");
print $query->filefield(-name=>'uploaded_file',
			    -default=>'starting value',
			    -size=>50,
			    -maxlength=>80);
print $query->br;
print $query->textfield('name','starting value',50,80);
	print $query->submit(-name=>'button_name',
			     -value=>'value');
print $query->end_multipart_form;
print $query->end_html;