Oh Noes API Changes :-( 

• Version 0.8 to 1.0

--- image_events.pl
+++ 0_image_events.pl
@@ -4,12 +4,13 @@
 use warnings;
 
 use Glib    qw( :constants );
-use Clutter qw( :gst-init );
+use Clutter qw( :init );
+use Clutter::GStreamer qw( :init );
 use FindBin qw();
 
 my $stage = Clutter::Stage->get_default();
 $stage->set_size(400, 300);
-$stage->set_color(Clutter::Color->parse('DarkSlateGray'));
+$stage->set_color(Clutter::Color->from_string('DarkSlateGray'));
 $stage->set_user_resizable(TRUE);
 $stage->signal_connect('key-press-event' => sub { Clutter->main_quit() });
 
@@ -28,7 +29,7 @@
 $icon->signal_connect('leave-event' => sub { $icon->set_opacity(127); });
 $stage->add($icon);
 
-my $audio = Clutter::Gst::Audio->new;
+my $audio = Clutter::GStreamer::Audio->new;
 $audio->set_filename("$FindBin::Bin/bell.ogg");
 $icon->signal_connect(
     'button-press-event' => sub { $audio->set_playing(TRUE); }