use strict; use warnings;
use CGI;

my $cgi = CGI->new;
my $opt = $cgi->param('action');
print $cgi->header;
print $opt;
print "wtf";

##</code><code>##

<form action="main.pl" method="POST"/>
<input type="hidden" name="action" value="PLEASE" />
<input type="submit" name="submit" value="Submit" />
</form>