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

You forgot to mention what errors you saw when you tried your code...

Also do you have permissions to drop from the table? Silly question I realize, but worthy of asking none-the-less.