sub handler {
   my $sessionid = $main::cgi->param('SESSIONID');
   sub router {
      # print $sessionid;
   }
}