Get RGB and alpha and HSV from image

imager.pl

#!perl
use strict;
use warnings;

use Imager;

my $file = shift or die "Usage: $0 image";
my $img = Imager->new(file => $file) or die Imager->errstr;

my ($width, $height) = ($img->getwidth, $img->getheight);

for my $x (0..($width-1)) {
    for my $y (0..($height-1)) {
        my $color = $img->getpixel(x => $x, y => $y);
        my ($r, $g, $b, $alpha) = $color->rgba;
        my ($h, $s, $v)         = $color->hsv;
        print "($x, $y) => RGBA($r, $g, $b, $alpha) ";
        print ", HSV($h, $s, $v)\n";
    }
}