use Data::Dumper qw( Dumper DumperX ); # I prefer X
## line 42 "My.pm"
die DumperX $obj;