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

$image->Read('tail0.jpg', 'tail1.jpg', 'tail2.jpg', 'tail3.jpg');

# oder auch Dateinamen von der Kommandozeile:
# foreach $file (@ARGV) 
#  { $images->Read($file) and die "Read failed"; }

# Die Bilder etwas skalieren,
# nur in X-Richtung, Y-Richtung automatisch
$image->Scale(geometry => '600');

# Zur Albumseite montieren
my $montage = $image->Montage(label  => "%f", 
                              shadow => "1",
                              tile   => "2");

# Wegschreiben
$montage->Write("tail-album.jpg") and die "Write failed";