#! /usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

package Foo::Bar;

sub baz {
    print "poop\n";
}

package main;

print Dumper(\%Foo::Bar::);