#!/usr/bin/perl -w
use strict;
use CGI;

my $q = new CGI;
print $q->header();
if ($q->param()) {
  print $q->ul(
             'Got Something:',
             $q->li( [map {"$_: ".$q->param($_)} $q->param()] )  
           ); 
} else {  
  print 'Got squat, sorry';
}