my $nr = $dbh->do("DELETE FROM table WHERE date<'2001-10-01' LIMIT 1500") or die $dbh->errstr;