#!/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";
}