$sth=$dbh->prepare("@sqlcmd");
$sth->execute;
while (($data) = $sth->fetchrow) {
   if($data =~ /create/) { print "$data\n";  }
}