use Data::Dumper;
package Foobar;
my $quux = {}
print Dumper $quux;