use strict;
use warnings;
use Image::Magick;

my $images = Image::Magick->new();

foreach my $file (@ARGV)
  {
  $images->Read(filename => $file) and die "Read failed";
  }

foreach my $image (@$images)
  {
  print "Name:    ", $image->Get('filename'), "\n";
  print "Groesse: ", $image->Get('filesize'), "\n";
  print "Breite:  ", $image->Get('width'), "\n";   # columns
  print "Hoehe:   ", $image->Get('height'), "\n";  # rows
  print "Farben:  ", $image->Get('colors'), "\n";
  print "X-Aufl.: ", $image->Get('x-resolution'), "\n";
  print "Y-Aufl.: ", $image->Get('y-resolution'), "\n";
  }