Select Code to Download

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

   #!/usr/local/bin/perl 
    use Imager;
...
    savedb("haar.db");

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

sub add_image_imager {
    my ($img, $id) = @_;
...
    }
    addImage($id, $reds, $greens, $blues);
}

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