Image::Imlib2 blend sample

#!/usr/bin/perl

use strict;
use warnings;
use Image::Imlib2;
use Data::Dumper;

my ( $width, $height ) = ( 150, 320 );
my $image_dir   = 'images/avater';
my @image_files = glob("$image_dir/*");
my @images;
foreach (@image_files) {
    push( @images, Image::Imlib2->load($_) );
}
my $background = shift @images;
foreach (@images) {
    $background->blend( $_, 1, 0, 0, $width, $height, 0, 0, $width, $height );
}
$background->save("$image_dir/out.png");