#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

my $image = Image::Magick->new;
umask 0022;
my @pics= <*.png>;

my $ok;
foreach my $pic (@pics){    
    $ok = $image->Read($pic) and warn ($ok);
  }

print "Montage...\n";
my $montage =
    $image->Montage(geometry => '300x300+8+4>', 
          gravity=>'Center',
          tile=>'5x+10+200',
          label => "[%p] %i %wx%h %b",
          );

$ok = $montage->Write('montage.png') and warn ($ok);