#!/usr/local/bin/perl 
	use Imager;
	use Image::Seek qw(loaddb add_image query_id savedb);

    loaddb("haar.db");

    my $img = Imager->new();
    $img->open(file => "photo-216.jpg");

    add_image($img, 216);
    savedb("haar.db");

    my @results = query_id(216); # What looks like this photo?