#!perl -w
use strict;
use CGI;
my $q = CGI->new();

print $q->header();

if ($q->param('hiddenfield') eq '') {
    print "<h1>Hidden field was not set</h1>";
} else {
    print "<h1>Hidden field was sent</h1>";
};