use strict;
use warnings;

use SymbolName qw/ get_symbol_name /;

# Set up some symbol names to find.

our $scalar_name = 100;
our %hash_name = ();
our @array_name = ();
*glob_name = 0;
sub subroutine_name { }

# Print the names of each of our new variables.


print "Symbol names found:\n";
foreach my $v_ref (    \(    $scalar_name, 
                             %hash_name, 
                             @array_name, 
                             *glob_name, 
                             &subroutine_name,
                        )  )  {
    print "\t", get_symbol_name( $v_ref, __PACKAGE__ ), "\n";
}