windows-server-2003/tools/sdx.cmd

        @REM
        @REM turn echo off unless Verbose is defined
        @REM
        @echo off
        if DEFINED _echo   echo on
        if DEFINED verbose echo on

        goto start

:start
        setlocal

        @REM
        @REM figure out the home path for SDX.CMD so we can
        @REM prepend %PATH% correctly and work without a drive letter
        @REM and find support files without being in the home dir
        @REM

        set SCRIPT=%0
        set SCRIPT=%SCRIPT:.cmd=%
        for %%i in (%SCRIPT%.cmd) do set STARTPATH=%%~dp$PATH:i
        set STARTPATHPA=%STARTPATH%%PROCESSOR_ARCHITECTURE%

        @REM
        @REM first argument is always the operation.  let the perl script
        @REM check it 
        @REM
        set SDCMD=%1
        shift

        if "%SDCMD%"=="" (
            echo.
            echo.
            echo No arguments.
            set SDCMD=usage
        )

:script
        @REM
        @REM always use our tools
        @REM
        @REM append a final ';' so any trailing '\' don't confuse Perl
        @REM 
        set PATH=%STARTPATH%;%STARTPATHPA%;%PATH%;
        set PATH_NO_QUOTES=%PATH:"=%

        @REM
        @REM call the script
        @REM
        @REM -S helps perl find the .PL script in %PATH%
        @REM -I helps it find .PM modules
        @REM % * is all args
        @REM
        perl -I"%PATH_NO_QUOTES%" -I"%STARTPATHPA%\perl\lib" -I"%STARTPATHPA%\perl\site\lib" -S sdx.pl %SDCMD% %*

        echo.
        echo.

        goto :end

:end
        endlocal