Can't call method "scaleY" on an undefined value at C:/strawberry/perl/site/lib/
Image/Seek.pm line 137.

##</code><code>##

   #!/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?

##</code><code>##

sub add_image_imager {
    my ($img, $id) = @_;
    my ($reds, $blues, $greens);
    require Imager;
    my $thumb = $img->scaleX(pixels => 128)->scaleY(pixels => 128);
    for my $y (0..127) {
        my @cols = $thumb->getscanline(y => $y);
        for (@cols) {
            my ($r, $g, $b) = $_->rgba;
            $reds .= chr($r); $blues .= chr($b); $greens .= chr($g);
        }
    }
    addImage($id, $reds, $greens, $blues);
}

##</code><code>##

my $thumb = $img->scaleX(pixels => 128)->scaleY(pixels => 128);

##</code><code>##

->scaleY(pixels => 128)