#/usr/bin/perl -w
use DBI; 
use CGI ':standard'; 
print "Content-type: text/html\n\n";

my $dbh = DBI->connect('dbi:mysql:my_db','searcher','searcherpasswd')
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';