use Image::Magick;
     my $image = Image::Magick->new();
     $image->ReadImage( 'x.jpg' );     
     my $pic = Image::Magick->new();
     $pic->ReadImage( 'x.gif' );
     $pic->Scale( width=>$w, height=>$h );
     $image->Composite( image=>$pic, x=>$x, y=>$y, compose=>'Over' );
     $image->Write( 'xb.jpg' );