my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file("girl16.jpg");
	my $i1 = Goo::Canvas::Image->new($canvas->{'item_layer'},$pixbuf,-$pixbuf->get_width/2,-$pixbuf->get_height/2);
	$i1->set('operator'=>'over');

	$pixbuf = Gtk2::Gdk::Pixbuf->new_from_file("girl15.jpg");
	my $i2 = Goo::Canvas::Image->new($canvas->{'item_layer'},$pixbuf,-$pixbuf->get_width/2,-$pixbuf->get_height/2);
	$i2->set('operator'=>'over');

	$pixbuf = Gtk2::Gdk::Pixbuf->new_from_file("mask.png");
	my $i3 = Goo::Canvas::Image->new($canvas->{'item_layer'},$pixbuf,-$pixbuf->get_width/2,-$pixbuf->get_height/2);
	$i3->set('operator'=>'dest_atop');