使用perl Image :: Magick删除图像角或使其透明？

Question

我正在尝试删除图像角落或使其透明（图像角落 只），而不是图像内容。用perl有没有办法做到这一点 Image::Magick？

use Image::Magick;

my $inputpdf = $ARGV[0]; # c:\1.pdf
my $outputfile = $ARGV[1];  # c:\1.png

# PDF to PNG Conversion:
my $image = Image::Magick->new;
my $image_value = $image->Read($inputpdf);
$image_value = $image->Trim();
$image_value = $image->Set('pdf:use-cropbox'=>'true');
#$image_value = $image->Transparent('color'=>'#fff');
$image_value = $image->Resize(geometry=>"700" . 'x' . "400");
$image_value = $image->Write("$outputfile");

请检查此图片：需要透明的角落