#!/usr/bin/perl -w
###########################################
# Mike Schilli, 2007 (m@perlmeister.com)
###########################################
use strict;
use Video::Capture::V4l::Imager;
use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init($DEBUG);

my $v = Video::Capture::V4l::Imager->new(
    width   => 640,
    height  => 480,
);

$v->brightness($ARGV[0] || 27_900);
my $img = $v->capture();

$img->write(file => 'fob.jpg') 
  or die "Can't write: $!";