use Image::Magick;
use strict; 

my $mask = Image::Magick->new(magick=>'png');
my $background = Image::Magick->new(magick=>'png');
my $foreground = Image::Magick->new(magick=>'png');

$mask->Read("png:mask.png");

$background->Set(size=>'500x500');
$background->Read("xc:white");
$background->Set(magick=>'png'); 
			
$foreground->Read("foreground.jpg");
$foreground->Set(magick=>'png'); 
			
$background->Composite(compose=>'Dissolve', opacity => '87.8%', image=>$foreground); 
$background->Composite(image=>$mask);
$background->Write("output.png");

exit;