use Date::Manip::Date;
   my $obj = new Date::Manip::Date;
   $obj->parse("2000-06-01-00:00");
   print $obj->value(),"\n";
   print $obj->complete('h'),"\n";
   print $obj->complete('m'),"\n";
   print $obj->complete('s'),"\n";