if( 'MSWin32' eq $^O )
{
    require Win32::GUI;
    # Win32::GUI->import(); # Pretend to be 'use' ???
    my ($DOS) = Win32::GUI::GetPerlWindow();
    Win32::GUI::Hide($DOS);
}