Can someone see if this would work?
my $height = "1000";
my $width = "1234";
my $maxh = "600";
my $maxw = "800";
if ($height > $maxh || $width > $maxw)
my $hratio = $height / $maxh;
my $wratio = $width / $maxw;
my $newh = $height / $hratio;
my $neww = $width / $hratio;
print "Height is now $newh, Width is now $neww";
"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"