my $data = qq(DELTE * FROM tablename);
my $sth = $dbh->prepare($data);
$sth->execute() or die $dbh->errstr;