use warnings;
use strict;

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;

my $q = CGI->new;
print $q->header,$q->start_html;
print '<pre>';
print Dumper \%ENV;
print '</pre>';
print "<br>Content-Range: ",$ENV{HTTP_CONTENT_RANGE};