Help for this page
use Image::Magick; my $image = Image::Magick->new(); ... $pic->Scale( width=>$w, height=>$h ); $image->Composite( image=>$pic, x=>$x, y=>$y, compose=>'Over' ); $image->Write( 'xb.jpg' );
use Image; my $image = Imager->new; ... $pic->scale( xpixels=>$w, ypixels=>$h, type=>'min' ), ); $image->write(file=>"xb.jpg");