use strict;
use warnings;

use Data::Dumper;
use Date::Manip;
use Date::Manip::Date;

{
   my $date = ParseDate("today");
   print(Dumper($date));
}

{
   my $date = Date::Manip::Date->new();
   $date->parse_format("%Y--%m--%d", "2010--03--30") and die;
   local $Data::Dumper::Maxdepth = 1;
   print(Dumper($date));
}