#!/usr/local/bin/perl
use strict 'vars';
use warnings;
use CGI;
use CGI::Carp 'fatalsToBrowser';
$|=1;
my $q = new CGI;
print $q->header();
our %vars = $q->Vars;
print qq {
Your html page sent to the script the following variables :
Variables
};
foreach my $k (keys %vars) {
print "the variable - $k has got the value - $vars{$k} ; ";
}
print "";