view release on metacpan or  search on metacpan

bin/morec2  view on Meta::CPAN

{
	system "v4l2-ctl ".
		"-s 3 ". # pal bg
		"-i 1 ". # composite
		"-v width=768,height=576,pixelformat=GREY ". # pixelformat
		"";
	unless (open VIDEO, '<', '/dev/video0') {
		message("Error initializing video:$!");
		exit;
	}
	binmode VIDEO;
	local $/;

	$image_buf = Prima::Image->new(
		width => 768,
		height => 576,
		type => im::Byte,
	);
	$w->Video->image($image_buf);
}