open(IMGDB, "$img_db"); # Open db for reading
@imgarray=<IMGDB>;
close (IMGDB);

foreach my $imgline (@imgarray) {
    if ($imgline =~ /\Q$search\E/i) {
        my ($img_name,$img_desc) = split /\|/, $imgline;

print <<End_of_head;
	<option value='$img_name'>$img_desc</option>
End_of_head
  }
}