#!/usr/bin/perl

#use strict;
use Devel::Symdump;

my $obj = Devel::Symdump->new('Foo');

print map {"$_\n"} $obj->scalars;

package Foo;

local $Foo::qualified;
local $unqualified;
our   $our;
my    $my;