use Data::Dumper;

my $blessedBe = bless {}, 'Wibble';

print Dumper $blessedBe;
print Dumper [$blessedBe];