#!/usr/local/bin/perl -w
#use strict, warnings, web cgi, and browser error modules
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $fetch_data = '';
my ($field, $value);
foreach $field (param)
{
#added this loop to cover multivalued form fields to
#process each value individually if needed
foreach $value (param($field))
{
$fetch_data .= "| $field: | $value |
\n";
}
}
print header, <<"EOF";
EOF