$ perl -MO=Deparse,-p -e '$no_days = "(TO_DAYS(dateadded)-TO_DAYS(Now())>=-$newdateadded)";'
($no_days = "(TO_DAYS(dateadded)-TO_DAYS(Now())>=-$newdateadded)");
-e syntax OK