#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
use strict;
use warnings;
use English;
my @scriptpath=split(/\//,$0);
my $scriptname = pop @scriptpath;
my $q = new CGI;
print $q -> header(-target=>"NewPage");
print $q -> start_html("$0");#page title
print h2("Run from  $0");
print "<br>\n";
my %form =(); my %key; my $value;

foreach my $p (param()) {
      $form{$p} = param($p);
      print "\$p is $p: \$form{\$p} is:  $form{$p}<br>\n";
}
print $q ->end_html;