@echo off
setlocal

set HOME="U:\Projekte"

set TERM=dumb
set PERL_JSON_BACKEND=JSON::XS
set PERL_YAML_BACKEND=YAML

:GCC
set INCLUDE=;C:\strawberry\c\include
set LIB=;C:\strawberry\c\lib

cd /D U:\Projekte\Programme\Perl

set _WIN=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem
set _RND=%RANDOM%

move C:\strawberry C:\strawberry%_RND%_
copy X:\usr\bin\perl.exe X:\usr\bin\perl%_RND%_.ex_
 
set _WHAT=%1
if "%_WHAT%" == "" set _WHAT=5.10
prompt PERL-%_WHAT% $p$g

set PATH=C:\strawberry\c\bin;C:\strawberry\perl\site\bin;C:\strawberry\perl\bin;%_WIN%
set PERLLIB=C:\strawberry\perl\lib;C:\strawberry\perl\site\lib;C:\strawberry\perl\vendor\lib
goto %_WHAT%

:5.10
:510
:10
set _WHAT=10
goto runcmd

:5.12
:512
:12
set _WHAT=12
goto runcmd

:5.14
:514
:14
set _WHAT=14
goto runcmd

:5.16
:516
:16
set _WHAT=16
goto runcmd

:5.18
:518
:18
set _WHAT=18
goto runcmd

:runcmd
mklink /J C:\strawberry X:\opt\perl-5.%_WHAT%
copy X:\opt\perl-5.%_WHAT%\perl\bin\perl.exe X:\usr\bin\perl.exe
copy X:\opt\perl-5.%_WHAT%\perl\bin\perl5%_WHAT%.dll X:\usr\bin\perl5%_WHAT%.dll
cmd

:exitall
rmdir C:\strawberry
move C:\strawberry%_RND%_ C:\strawberry
copy X:\usr\bin\perl%_RND%_.ex_ X:\usr\bin\perl.exe
del /F X:\usr\bin\perl%_RND%_.ex_

endlocal