$dbh->do(qq(delete from tablename  where 1=1 ));