use Image::Info; 
my $info = image_info($image_file);
my ($x,$y) = dim($info);
print "Total pixels: ", $x * $y, "\n";