my ($DOS) = Win32::GUI::GetPerlWindow();
Win32::GUI::Show($DOS);
MainLoop();