use strict; use warnings; use diagnostics; use Env; # Send errors to browser use CGI::Carp qw( fatalsToBrowser ); use CGI qw(:standard); my $query = CGI->new(); my %vars = $query->Vars(); # CGI.pm print header(), start_html(), and basic HTML goes here print p("\$vars{action} passed was: $vars{action}\n") if $vars{action};