#=========== INSERTING MULTIPLE FILENAMES & CONTENTS INTO DATABASE =============

my $insert = $db->prepare( 'INSERT INTO articles (title, body) VALUES (?, ?)' );

my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";

while (@files) {
   open FILE, "<$ENV{'DOCUMENT_ROOT'}/data/text/$_" or die $!;
   
   while (<FILE>) {
      chomp;
      $insert->execute(split /\t/, $_, 2) or print $db->errstr;
   }

   close FILE;
}