perl - PerlMagick を使用して画像をせん断し、別の画像に合成する

Question

ケーキの写真のように、画像をせん断して別の画像に配置しようとしています.Perlで作業しており、Image::Magick Perlライブラリを使用しています. これが私が生成できる出力です。せん断された画像の背景を作成できません。これが私のコードです：

#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;

my $im = Image::Magick->new;

$im->Read('cake.jpg');

$im->Scale('50%');

my $sh = Image::Magick->new;

$sh->Set( magick => 'png' );

$sh->Read('oo.jpg');

$sh->Resize(width => 580, height => 540);

$sh->Shear( geometry => '580x540+0+0', x => -40, y => -30, 'virtual-pixel' => 'Transparent');

$im->Composite( image => $sh, geometry => '+90+60');

$im->Write('test.jpg');

また、AffineTransform を使用していくつかの投稿を見たことがありますが、それらを使用するとせん断を達成できません。