#get the latest image from the IP camera
my $snapshot = new Image::Grab;
$snapshot->ua->timeout(5);  #sets the timeout (sec) for image::grab (default is 180s)
$snapshot->url("$Camera{$key}");  # create the grab object
$snapshot->grab;    # grab the image

mark_blob(my $jpg);     # mark as a binary variable
$jpg = $snapshot->image;
# Convert to Image::Maggick image
my $pic = Image::Magick->new(magick=>'jpg'); #   create new image object
$pic->BlobToImage($jpg);  #convert the grabbed blob image to Image::Magick object