# my $dbh = DBI->connect( ... );
my $wanted_cols = join ',',qw( colname1 colname2 ...);
$dbh->do("
    CREATE TABLE new_table
        AS SELECT ($wanted_cols) FROM old_table
");