my @names = param();
my %data;
foreach my $name (@names)
{
next if ($name =~ m/SubmitButtonName/);
$data{$name} = param($name);;
}
foreach my $key (keys %data)
{
print "$key => $data{$key} \n";
}
# all goodies are in %data
####
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
print header, start_html;
my %data = param();
foreach my $key (keys %data)
{
print "$key => $data{$key} \n";
}