sub min($$){ $_[0]<$_[1]?$_[0]:$_[1] }

my $gh=$gui->height();
my $gw=$gui->width();

my $ih=$img->height();
my $iw=$img->width();

my $gui_min=min($gw,$gh);
my $img_min=min($iw,$ih);

my $scale=$gui_min/$img_min;

$img->resize($scale);