use strict;

$|=1;

use CGI;

my $q = new CGI;

my %in = map { $_ => $q->param($_) } $q->param;

print $q->header;
foreach my $key (keys %in) {
    print $key.$in{$key};
}