package main;
use Data::Dumper;
print Dumper(Bar->new);

__END__
$VAR1 = bless( {
                 'bar' => 2,
                 'foo' => 1
               }, 'Bar' );