Select Code to Download

 $goMainWindow = new MainWindow;
  $goMainWindow->geometry('200x300'); #Exit is lopped off

# at ther end of your build_gui sub

...
my $h = $goMainWindow->reqheight; 
print "$w $h\n";
$goMainWindow->minsize($w,$h);

#!/usr/bin/perl
use strict;
...
                     );
  
}