Select Code to Download

# 'use's and stuff go here

...
    my ($x,$y,$id) = imgsize($_);
    print "$_ width=",$x/$scale,"$unit, height=",$y/$scale,"$unit\n";
}