#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use CGI qw/:standard/; my $query = new CGI; print $query->header; my $formStatus = $query->param('submitButton'); my $buttonStatus = $query->param('resetButton'); print "Value of \$formStatus is: $formStatus". localtime()."\n"; print "Value of \$buttonStatus is: $buttonStatus". localtime()."\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n";