use Image::Magick;
my $IMimage = Image::Magick->new;
$IMimage->Read($filename); 
$readval=$IMimage->Get('pixel['.$xcount.','.$ycount.']');