my $img = Imager->new->open( file => q{myfile.jpg} );
my $colors = $img->getcolorusagehash();
my $color_black = pack( q{CCC}, 0, 0, 0 );
say qq{True black used }, $colors->{$color_black}, qq{ times.}