#!/usr/bin/perl

use strict;
use Clutter qw( :init );

my $stage = Clutter::Stage->get_default;
$stage->set_color(Clutter::Color->parse('DarkSlateGray'));
$stage->signal_connect('key-press-event' => sub { Clutter->main_quit });
$stage->set_size(800, 600);

     # add an actor and place it right in the middle
         my $label = Clutter::Label->new("Sans 30", "Hello, Clutter!");
         $label->set_color(Clutter::Color->new(0xff, 0xcc, 0xcc, 0xdd));
         $label->set_anchor_point($label->get_width() / 2,
                                  $label->get_height() / 2);
         $label->set_position($stage->get_width() / 2, $stage->get_height() / 2);
         $stage->add($label);

         $stage->show_all();


Clutter->main;