#! /perl/bin/perl -w
use strict;
use CGI;
use XML::Simple;
use Data::Dumper;

my $q = CGI->new;

print $q->header, $q->start_html;

print $q->a({href => $q->script_name . "?parm=value"}, "Link");

print $q->start_form
	, $q->textfield(-name => "field_name")
	, $q->submit(-name => 'button_name' )
	, $q->end_form
;

my @parms = $q->param;
print $q->pre(Dumper \@parms);
print $q->end_html;