#!/perl/bin/perl
#
# imagexy.pl -- script to return width and height of image(s)
use strict;
use warnings;
use diagnostics;
use Image::Size qw(:all);

my $scale = ($ARGV[0] =~ /^\d+$/) ? shift : 1;

for (map {glob} @ARGV) {
    my ($x,$y,$id) = imgsize($_);
    print "$_ width=",$x/$scale,"in, height=",$y/$scale,"in\n";
}