$dbh = DBI->connect($db_datasource, $db_user_name, $db_password) or die("Could not connect!");

$sql= "SHOW CREATE TABLE responses";

my $command = $dbh->prepare($sql) or die("Could not prepare!");
$command->execute() or die("Could not create!");

while ( my @row = $command->fetchrow_array( ) )  {
         print "@row\n";
}