File Uploading

#!/usr/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 h3("File name: $file");
    print h3('File MIME type:',
	     uploadInfo($file)->{'Content-Type'});

    my $fh = upload('upload');
    while (<$fh>) {
 	$length += length($_);
    }

    print h3("File length: $length");
}