#!/usr/bin/perl
use strict;
use Video::Capture::V4l;
my $grab = new Video::Capture::V4l("/dev/video0") or die "Unable to open Video device: $!"; print "silent error:$!\n";
$grab->sync(0) or die "unable to sync: $!\n"; #