my $sql = "create table x as (y text)";
#DEBUG (it's this output that I copy/paste)
print "$sql\n";  
#or perhaps die "$sql\n";

$dbh->do($sql) or die $dbh->errstr()

...