# Convert to Image::Maggick image
my $pic = Image::Magick->new(magick=>'jpg');  #   create new image object
$pic->BlobToImage($img);  #convert the grabbed blob image to Image::Magick object

## test point A

#pass the $pic object to the subroutine and measure image darkness.
my $test = ImageNotDark ($pic);  #