#get the latest image from the IP camera
my $snapshot = new Image::Grab;
$snapshot->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
open (IMAGE, ">$lastsnap{$key}")  || die syslog(LOG_ERR, "Couldn't open file, $!"); # opens and clears th$
binmode IMAGE;  # for MSDOS derivations.
print IMAGE $snapshot->image;  # save the image to the /var/images/Trackcam folder
close IMAGE or die $!;
 
##</code><code>##

Can't access `timeout' field in class Image::Grab at upload-images.pl line 79.
 at /usr/local/share/perl/5.18.2/Image/Grab.pm line 81.
        Image::Grab::AUTOLOAD('Image::Grab=HASH(0x8698344)', 5) called at upload-images.pl line 79