#!/usr/bin/perl
use DBI;
$dbh=DBI->connect('DBI:mysql:test','root','root');
$dbh->do("create table tablename1 select column2 from tablename");