Select Code to Download

my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";
my @filenames = map {/([^\/]+)\.txt$/} @files;
...
      }
   }
}

$db->do( 'CREATE TABLE articles   (id tinyint auto_increment primary k
+ey, title varchar(100), body text)' );