Select Code to Download

   use Date::Manip::Date;
   my $obj = new Date::Manip::Date;
...
   print $obj->complete('h'),"\n";
   print $obj->complete('m'),"\n";
   print $obj->complete('s'),"\n";

   2000060100000
   1
   1
   0