use Data::Dumper; 
    $Data::Dumper::Sortkeys = 1;
    
    use CGI;
    use CGI::Carp qw(fatalsToBrowser);
    use My::Session;
    
    $| = 1;
    $, = " ";
    $\ = "\n <br />";

      my $sss = My::Session->new();      
      $sss->start();
      print "<title>Test Sessions</title>";
      print "TEST";
  
      print "<pre>",Dumper($sss),"</pre>";