$ perl -cw -e '$no_days = "(TO_DAYS(dateadded)-TO_DAYS(Now())>=-$newdateadded)";'
Name "main::newdateadded" used only once: possible typo at -e line 1.
Name "main::no_days" used only once: possible typo at -e line 1.
-e syntax OK