DB<1> c 42
main::(grab-images.pl:42):      mark_blob(my $pic);
  DB<2> n
main::(grab-images.pl:43):      $pic = $snapshot->image;  #debug
  DB<2>
main::(grab-images.pl:45):      my $SaveFile = join("","$ImagePath{$key}",&timestamp,"\-snapshot\-$key.jpg");
  DB<2>
main::(grab-images.pl:46):      print ("Save filename: $SaveFile");
  DB<2>
main::(grab-images.pl:48):      open(my $fh, ">$SaveFile") || die "$SaveFile: $!";
  DB<2> Save filename: /var/images/trackcam1/2017-04-23_20:40:01-snapshot-1.jpg
main::(grab-images.pl:49):      binmode $fh;  # for MSDOS derivations.
  DB<2>
main::(grab-images.pl:50):      print $fh $pic;
  DB<2> s
Use of uninitialized value $pic in print at grab-images.pl line 50.
 at grab-images.pl line 50.
main::(grab-images.pl:51):      close $fh;