Select Code to Download

use strict;
use warnings;
...
   local $Data::Dumper::Maxdepth = 1;
   print(Dumper($date));
}

$VAR1 = '2010040100:00:00';
$VAR1 = bless( {
...
                 'data' => 'HASH(0x218b084)',
                 'objs' => 'HASH(0x239064)'
               }, 'Date::Manip::Date' );