image_events.pl 

#!/usr/bin/perl

use strict;
use warnings;

use Glib    qw( :constants );
use Clutter qw( :gst-init );
use FindBin qw();

# ...