#! /usr/bin/perl
use strict;

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

my $var1 = 'var1';
our $var2 = 'var2';

foreach($obj->scalars){
    print "$_\n";
}

__OUTPUT__
...Builtin Vars...
main::var2
...More Builtin Vars...