my ($dos) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($dos);