#!/usr/bin/perl

use Imager;


# read file
$img = Imager->new();  
$img->read(file=>'pixelateMe.png', type=>'png') or die $img->errstr();

# create array - values for pixel values
my @colors = $img->getpixel(x => [ 0 ], y => [ 0 .. 1 ]);

print @colors[0]; # output is "scalar": Imager::Color=SCALAR(0xb97800)