#!/usr/bin/perl -w
#!C:/perl/bin/perl -w

use CGI::Carp qw( fatalsToBrowser );
use CGI;
#use CGI 2.7; # the minimum acceptable version is 2.7 in my book
use strict;

my $query = new CGI;

print $query->header,
      $query->h1("VERSIOn $CGI::VERSION"),
      $query->h1("POST MAX $CGI::POST_MAX "),
      $query->h1(" DISABLE_UPLOADS $CGI::DISABLE_UPLOADS "),
      $query->start_multipart_form();

print $query->filefield(-name=>'uploaded_file',
                            -default=>'starting value',
                            -size=>50,
                            -maxlength=>80);
print $query->submit(),$query->end_form();
print $query->hr();

if($query->upload('uploaded_file')) {
    my $fh = $query->upload('uploaded_file');
    print "<PRE>Filename: $fh \n";
    print "Size: ".(-s $fh)."\n\n";
    print while <$fh>; # idiomatic
    print "</pre>";
}