Select Code to Download

#!/perl/bin/perl
#
...
    my ($x,$y,$id) = imgsize($_);
    print "$_ width=",$x/$scale,"in, height=",$y/$scale,"in\n";
}