print p("\$vars{action} passed was: $vars{action}\n") if $vars{action};

##</code><code>##

$vars{action} passed was: news
$vars{action} passed was: home
$vars{action} passed was:
$vars{action} passed was: dl

##</code><code>##

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};