use strict;
use warnings;
use Image::Magick;
 
my $image = Image::Magick->new();

$image->Read('lego1.jpg','lego2.jpg');

$image->Scale(geometry => 'x500');

my $morph = $image->Morph(frames => 10);

$morph->Set(delay => 15, loop => 10);
 
$morph->Write('lego.gif');
$morph->Write('lego.jpg');