@echo off

  REM
  REM Help
  REM
if {%1}=={/?} goto HELP
if {%1}=={--help} goto HELP

  REM
  REM Check args
  REM
if not {%2}=={} goto ERROR

REM -------------------------------------------------------
if {%1}=={} (
    junction c:\strawberry
    perl -e "print \"$]  \@  $^^X\n\""
) else (
    if exist c:\strawberry-%1\perl\bin\perl.exe (
        junction -d c:\strawberry
        junction c:\strawberry c:\strawberry-%1
        perl -e "print \"$]  \@  $^^X\n\""
    ) else goto ERROR
)

goto END
REM -------------------------------------------------------

:ERROR
echo %0: Parameter format not correct
goto END

:HELP
echo.
echo %0 manages different versions of Perl.
echo.
echo     USAGE:
echo.
echo     %0 ^<Perl_version_number^>
echo.
echo     Where ^<Perl_version_number^> is one of the following:
echo.
for /f "tokens=1,* delims=-" %%i in ('dir /b c:\strawberry-*') do @if exist c:\strawberry-%%j\perl\bin\perl.exe echo %%j
echo.

:END