sub printSimbleTable{
        #my $package = shift;
        print "I am in printSimbleTable of: ".__PACKAGE__."\n";
        no strict qw (refs);
        print map {"$_\n"}   keys %{__PACKAGE__."::"}

}