image.pl 

#!/usr/bin/perl

use strict;
use warnings;

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

# ...