my ($sessid) = $ENV{QUERY_STRING};