# $| = 1;  # Uncomment when adding print statements for debugging.

# Get more than needed so we can randomly choose images later.
while (@found_galleries && @found_images < $pics_to_find * 30)
{
   # Remove one gallery link at a time until we're done.
   my $gal_url = pop(@found_galleries);
   my $gal = get($gal_url);

   # Extract the image URLs from the gallery page.
   my @image_urls = $gal =~ m#(http://images\.imagefap\.com/images/thumb/\d+/\d+/\d+\.jpg)#g;

   # Remove the images which are too big.
   if ($limit_img_size eq "yes")
   {
      @image_urls = grep {
         my $image = get($_);
         my ($height, $width) = imgsize(\$image);
         $height <= $max_height && $width <= $max_width
      } @image_urls;
   }

   push @found_images, @image_urls;
}