Select Code to Download

use Image::Magick;

...
        $count++ if $image->Get("pixel[$x,$y]") != $transparent;
    }
}