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