Select Code to Download

#/usr/bin/perl -w
use DBI; 
use CGI ':standard'; 
...
or die "Connection Error: $DBI::errstr\n";
##DELETE FROM my table WHERE DATE(NOW(), date) >30;
DELETE FROM my table where now()-d >interval '30days';

Undefined subroutine &main::NOW called at e:\owner\website \cgi-bin\se
+arch_ specialty.pl line 13

...
Syntax error at e:\owner\website \cgi-bin\search_ specialty.pl line 14
+, near ")-d "

Execution of e:\pinnacle\website\cgi-bin\search_specialty.pl aborted d
+ue to compilation errors.