#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new();
print $cgi->header();
my %params = $cgi->Vars();

print $_," -> ",$params{$_},"<br />" for(sort keys %params);