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;

##</code><code>##

use strict;
use warnings;

use Vinoth;

&Vinoth::printSimbleTable( 'Vinoth' );

##</code><code>##

local *low_flyer = *BushWhack::variable; # compile time
local *low_flyer = *BushWhack::{"variable"}; # run time

##</code><code>##

foreach $symbol_name (sort keys %BushWhack::) {
        local *local_sym = $BushWhack::{$symbol_name};
        print "\$$symbol_name is defined\n"
                if($local_sym);
        print "\@$symbol_name is defined\n"
                if(@local_sym);
        print "\%$symbol_name is defined\n"
                if(%sym);
}