Help for this page
Select Code to Download
Select
or
download this
use Data::Compare; print "same\n" if Compare $obj_1, $obj_2;