Select Code to Download

my $table1 = "CREATE TABLE table1 (
    pike varchar2(200),
...
)";

$dbh->do( $table1 ) or die $dbh->errstr;