use Date::Manip;

my $date1 = "2004-01-14"
my $date2 = UnixDate(ParseDate("today"),"%Y-%m-%d");