package iPLib::iRequest;
require Exporter;
our @ISA    = qw(Exporter);
our @EXPORT = qw($_POST);

use warnings;
use strict;
use CGI::Lite;

our $_POST;

 my $cgi = CGI::Lite->new();
	
  $_POST = $cgi->parse_form_data('POST');

1;	

##</code><code>##


use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI::Cookie;

use iPLib::iCFG;
use iPLib::iDoc;
use iPLib::iRequest;

my $doc = iDoc->new( BodyOnLoad => 'iInitJS()');

  $doc->iAddContent("<br>".$_POST->{'TESTNAME'}."<br>");
 
 $doc->iDraw;