my $query = $dbh->prepare('SHOW TABLES');
	if (defined($query)) {
		$query->execute();
		my @row;
		while (@row = $query->fetchrow_array()) {
                    $sql = qq|delete from ?|;
		    $sth = $dbh->prepare($sql) or die "Cannot prepare: " . $dbh->errstr();
		    $sth->execute($row[0]) or die "Cannot execute: " . $sth->errstr();

		}
	}
	$query->finish();