image.pl 

my $icon = Clutter::Texture->new("$FindBin::Bin/speaker.png");
$icon->set_anchor_point(
    $icon->get_width()  / 2,
    $icon->get_height() / 2
);
$icon->set_position(
    $stage->get_width()  / 2,
    $stage->get_height() / 2
);
$icon->set_opacity(127);
$stage->add($icon);

# ...