Help for this page
$main->geometry ('500x500');
my $height = $main->reqheight; # or $main->height $main->geometry ('500x' . $height);