my $CmdNgen          = "$fw20cmd\\ngen.exe";
    my $ParmNgenPause    = "ngen queue pause";
    my $rc;
    $rc = ProcessItWin( $CmdNgen, $ParmNgenPause );

    sub ProcessItWin {

        my ( $ProcessCmd, $ProcessParam ) = @_;
        my $ProcessObj = undef;

        #print "Start $ProcessCmd $ProcessParam\n";

        my $rc = Win32::Process::Create( $ProcessObj, $ProcessCmd, $ProcessParam, 0, NORMAL_PRIORITY_CLASS, q{.} )
            or $rc = ErrorReport($ProcessCmd);

        my $pid = $ProcessObj->GetProcessID();

        $ProcessObj->Wait(INFINITE);

        return $rc;

    }

    sub ErrorReport {
        my $cmd = shift;
        print "\n *** Error CreateProcess: Command=$cmd, ", Win32::FormatMessage( Win32::GetLastError() ), "\n";
        return 0;
    }