File Uploading

 #!/usr/local/bin/perl
 #script: upload.pl
 
 use CGI qw/:standard/;
 
 print header,
     start_html('file upload'),
     h1('file upload');
 print_form()    unless param;
 print_results() if param;
 print end_html;
 
 sub print_form {
     print start_multipart_form(),
        filefield(-name=>'upload',-size=>60),br,
        submit(-label=>'Upload File'),
        end_form;
 }
 
 sub print_results {
     my $length;
     my $file = param('upload');
     if (!$file) {
 	print "No file uploaded.";
 	return;
     }
     print h2('File name'),$file;
     print h2('File MIME type'),
     uploadInfo($file)->{'Content-Type'};
     while (<$file>) {
 	$length += length($_);
     }
     print h2('File length'),$length;
 }