#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new();
print $cgi->header( 'text/plain' );

my %params = $cgi->Vars;

print sprintf( "%s : %s\n" $_, $params{$_} ) for keys %params;