
use strict;
use lib1;

my $q=new CGI;
my $name = lc($q->param('name'));
my $sessionid = $q->param('sessionid');
my $DB = $wacsapi::WACSDB;

#SQL
....

print ( "Content-Type: text/html\n\n" );
print "<html>";
print "<head>";

&wacsInitMenuAndButtons;

...