Help for this page
use Win32::GUI; $main = Win32::GUI::Window->new( ... sub Main_Terminate { -1; }
use Win32::GUI; $main = Win32::GUI::Window->new( ... -height => 100, ); $main->Show();