use Gtk2 '-init';
use Glib qw(TRUE FALSE);

use OpenCV::Webcam ;


$window = Gtk2::Window->new();


$capture = OpenCV::Webcam::new();

$data = OpenCV::Webcam::GetImage();

$pixbuf = Gtk2::Gdk::Pixbuf->new_from_data ($data, 'rgb', FASLE, 8, 640, 480, 1920);
$image = Gtk2::Image->new_from_pixbuf ($pixbuf);


$window->add($image);

$window->show_all();

Gtk2->main;