Before
my @T = Date::Calc::Today;
$filter .= " AND extend(arrival_date,year to day) >= '" .
sprintf("%04d-%02d-%02d",$T[0..2]) . "'";
After
$filter .= " AND extend(arrival_date,year to day) >= " .
sprintf("'%04d-%02d-%02d'", Date::Calc::Today);
j