#!/usr/bin/perl

use strict;
use warnings;

use CGI qw( -no_xhtml -nosticky );
use Data::Dumper ();

my $cgi=CGI->new();
my $f=$cgi->upload('f');
my $text=Data::Dumper->new([$cgi,\%ENV],['cgi','*ENV'])->Useqq(1)->Sortkeys(1)->Indent(1)->Quotekeys(0)->Dump();
print
        $cgi->header(
                -type=>'text/html'
        ),
        $cgi->start_html(
                -title=>'CGI Dump',
        ),
        $cgi->start_multipart_form(),
        $cgi->filefield(-name => 'f'),
        $cgi->submit(),
        $cgi->end_form(),
        $cgi->pre($text),
        $cgi->end_html();