if ($line =~ /CREATE TABLE/) {
   close (FILE)
   ($filename) = $line =~ /CREATE TABLE ([\S]*)/;
   open (FILE, >$filename);
}