Select Code to Download

use strict;
use warnings;
use Tk;
...
                );
    }
}

sub Popup
{
...
 $mh = $minheight if (defined $minheight and $minheight >$mh); #ADD
 my ($rx,$ry,$rw,$rh) = (0,0,0,0);
...