my $main::sessionid = $main::cgi->param('SESSIONID')