use CGI qw/:standard/;
use CGI::Validate;

##</code><code>##

my $variable =  param( "var" ) || "OFF";

##</code><code>##

if ($ENV{'REQUEST_METHOD'} eq "GET") {
	$request = $ENV{'QUERY_STRING'};
} 
if ($ENV{'REQUEST_METHOD'} eq "POST") {
	read(STDIN, $request,$ENV{'CONTENT_LENGTH'}) 
		|| warn "Could not get query\n";
} 
##Then Save $request to file.