it's not really maximized, but kinda does the trick for me:

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

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

Originally posted as a Categorized Answer.