package Vinoth;

use strict;
use warnings;

use Data::Dumper;

our $VERSION=1.0;

sub printSimbleTable{
        my $package = shift;
        print "I am in printSimbleTable of : $package\n";
        print Dumper \%$packge::; #Not working
        print Dumper \%Vinoth::; # Works
        #print Dumper \%{$packge}::; #Not working
        
#       foreach my $varName (sort keys %$package::)
#       {
#               print "$varName\n";
#               local *typeglob =  %{$package}::{$varName};
#               print "$$varName\n" if ($typeglob);
#       }
}

1;