#!/usr/bin/perl 

use strict;
use Video::Capture::V4l::Imager;

     my $vcap = Video::Capture::V4l::Imager->new(
                        width  => 320,
                        height => 240,
                );

     # Adjust camera brightness if necessary
          $vcap->brightness(32_000);

     # Capture an image, back comes an Imager object
            my $img = $vcap->capture();

     # Save it as JPEG
         $img->write(file => 'mycapture.jpg')
                 or die "Can't write: $!";