#!/usr/bin/perl

use strict;
use CGI;
use Data::Dumper 'Dumper';

my $c = new CGI;

print
    $c->header,
    $c->start_html,
    "<p> The script name is $0 </p>",
    '<pre>',
    Dumper( \%ENV ),
    '</pre>',$c->end_html;