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