use Devel::Peek;
Dump $obj;