image.pl 

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

# ...