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

closedir(DIR);