$dbh->do( 'CREATE TABLE a (x INT) ; DROP TABLE a -- );' ) ;
// or
$dbh->do( 'CREATE TABLE a (x INT) ; DROP TABLE a' ) ;