(my $xres, my $yres) = $mainwin->maxsize;

$mainwin->geometry("=".$xres."x".$yres);