use Image;
        my $image = Imager->new;
        $image->read(file=>'x.jpg', type=>'jpeg') or die "Cannot read: ", $image->errstr;
        my $pic = Imager->new;
        $pic->read(file=>'x.gif', type=>'gif') or die "Cannot read: ", $pic->errstr;
        $image->paste( left=>$x, top=>$y, img=>
          $pic->scale( xpixels=>$w, ypixels=>$h, type=>'min' ),
         );
        $image->write(file=>"xb.jpg");