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;