use MyTest::Lite;
use strict;

my $lite = new MyTest::Lite (  Usr => 'guest') ;

$lite -> chkAccessRight ( "app2" ) ;
print "======================$/";
$lite -> tryAccess (  "app1"  );