while (my ($variable_name, $variable_value ) = each %params) {
	print "Variable name = $variable_name/n Variable value = $variable_value\n\n";
}


##</code><code>##

#!/usr/bin/perl -wT
# tools.cgi

use strict;
use CGI qw(header start_html Vars pre);
use CGI::Carp qw(fatalsToBrowser);

print header();

print "These are the values submitted:\n\n";
my %params = Vars();

my $count = keys %params;
print $count; 

while (my ($variable_name, $variable_value ) = each %params) {
	print "Variable name = $variable_name/n Variable value = $variable_value\n\n";
}


##</code><code>##

foreach $sri_variable( $cgi->param){
	print "$sri_variable:\n";
	foreach $variable_value( $cgi->param($sri_variable) ){
		print "  $variable_value\n";
	}
}