my $date = new Date::Manip::Date;