my $date1 = Date::Manip::Date->new;
my $date2 = $date1->new_date();