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