use CGI;
Main( @ARGV );
exit( 0 );
sub Main {
   my $q = CGI->new;
   my $RequestXML = scalar $q->param('RequestXML');
   ...
   print $header, $body;
   return;
}