#!/usr/bin/perl
use warnings;
use strict;
use CGI;
my $cgi=new CGI;
my %in = $cgi->Vars();

print "Content-type: text/html\n\n";

foreach my $key (keys %in){
   print "$key ->  $in{$key}<br>";
   }