use strict;
use DBI;
my $o = DBI -> connect("foo","bar","you wish");

my $dir="/A_Directory";
opendir(DIR, $dir) or die $!;

foreach ( readdir DIR ) {
	next if /^\.{1,2}$/;
	my $file=$dir."/".$_;
	my $query;
	$query="insert into search ( title ) values ( '$file' )";
	print "$query: ",$o->do($query),"\n";
	$query="update search set body = LOAD_FILE('$file') where title = '$file'";
	print "$query: ",$o->do($query),"\n";
	}
closedir(DIR);

$o->disconnect;