<% @ language=perlscript%> <% use CGI; $query=new CGI; my $sessionid=$query->param("sessionid"); if(!$sessionid){$sessionid=1;} %>