use Date::Manip;

Date_Init("Internal=1"); # No colons in dates, same as mysql

my $end = ParseDate('today');
my $start = DateCalc('today', '- 5 days');