use Data::Dumper;

print Data::Dumper->Dump([ $obj ],[qw( obj )]);