#!/usr/bin/perl -w
use strict;
use CGI;
print CGI->header();
print q(<form><input type="text" name="stuff"><input type="submit"></form>);
my %vars = CGI->new->Vars();
print "$_ => '$vars{$_}'<br>" for sort keys %vars;