#!/usr/bin/perl -w
use strict;
use warnings;
use CGI qw/:standard/;

    my $q = new CGI;

    my  $cgi_error = $q->cgi_error();
    if( $cgi_error ) {
        print $q->header( -status => $cgi_error ),
              $q->start_html('Problems'),
              $q->h2('Request not processed'),
              $q->strong($cgi_error),
              $q->end_html();
        exit(0);
    }

    my( $latest_fullpath, $latest_filepath, $latest_filename );
    my( $latest_status, $latest_length, $latest_content_type );

    if( $q->param() ) {
        $q->param('latest_fullpath', '' );
        $q->param('latest_filepath', '' );
        $q->param('latest_filename', '' );
        $q->param('latest_length',   '' );
        $q->param('latest_status',   '' );
        $q->param('latest_content',  '' );

        $latest_fullpath = $q->param('filename');
        $q->param('latest_fullpath', $latest_fullpath );

        my( $filepath, $filename ) =
                ($latest_fullpath =~ /^( (?: .* [:\\\/] )? ) (.*) $/x);

        $q->param('latest_filepath', $filepath );
        $q->param('latest_filename', $filename );

        my  $rhhdrs = $q->uploadInfo($latest_fullpath);
        $latest_content_type = $rhhdrs->{'Content-Type'};
        $q->param('latest_content',  $latest_content_type );

        my  $uploadfh = $q->upload('filename');
        if( $uploadfh ) {
            while( <$uploadfh> ) {
                $latest_length += length $_;
            }

#           $latest_length += 42;
            $q->param('latest_length',   $latest_length );

        } elsif( $q->cgi_error ) {
            print $q->header( -status => $q->cgi_error );
            exit(0);
        } else {
            $q->param('latest_status',   'No filehandle?' );
        }

    }

    print $q->header(),
          $q->start_html( -title => 'Testing file uploads' ),
          $q->start_multipart_form({
                -method    => 'POST',
                -action    => 'testingx.pl'
              }),
          $q->filefield({
                -name    => 'filename',
              }),
          ' &nbsp; ',
          $q->submit('Add'),
          $q->end_form(),
          $q->hr(),
          $q->textfield('latest_fullpath'), ' &nbsp; Latest Fullpath', $q->br(),
          $q->textfield('latest_filepath'), ' &nbsp; Latest Filepath', $q->br(),
          $q->textfield('latest_filename'), ' &nbsp; Latest Filename', $q->br(),
          $q->textfield('latest_length'),   ' &nbsp; Latest Length',   $q->br(),
          $q->textfield('latest_status'),   ' &nbsp; Latest Status',   $q->br(),
          $q->textfield('latest_content'),  ' &nbsp; Latest Content-type',   $q->br(),
          $q->hr(),
          "  CGI::POST_MAX is '$CGI::POST_MAX'", $q->br(),
          "  CGI::DISABLE_UPLOADS is '$CGI::DISABLE_UPLOADS'", $q->br(),
          "  REQUEST_METHOD is ", $q->request_method(), $q->br(),
          "  CONTENT_TYPE is ", $q->content_type(), $q->br(),
          $q->end_html();