#!/usr/bin/perl use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use CGI qw/:standard/; use CGI; my $query = new CGI; print $query->header; print <Thank You

Thank you - your form was submitted correctly! END_HTML my $a = $query->param('submit'); print "Value: $a\n";