Can someone see if this would work?
#!/usr/bin/perl
use warnings;
use strict;
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"
sulfericacid