NAME Image::Seek - A port of ImgSeek to Perl SYNOPSIS use Image::Seek qw(loaddb add_image query_id savedb); loaddb("haar.db"); # EITHER my $img = GD::Image->newFromJpeg("photo-216.jpg", 1); # OR my $img = Imager->new(); $img->open(file => "photo-216.jpg"); # OR my $img = Image::Imlib2->load("photo-216.jpg"); # Then... add_image($img, 216); savedb("haar.db"); my @results = query_id(216); # What loo