Help for this page
my $width = $pic_cur ->{Width}; my $height = $pic_cur ->{Height}; ... $new_width = $new_height / $aspect; } # else: height <= max_height