Вы можете поместить это в верхнюю часть файла вашего скрипта Perl:
@SETLOCAL ENABLEEXTENSIONS
@c:\strawberry-perl-port\perl\bin\perl.exe -x "%~f0" %*
@exit /b %ERRORLEVEL%
#!perl
....perl program goes here...
Вам также необходимо изменить расширение вашего скрипта, чтобы оно было .cmd вместо .pl.Приведенный выше трюк запускает интерпретатор Perl Strawberry, вызывая его с ключом -x, за которым следует «% ~ f0».Это путь к сценарию .cmd.Сценарий .cmd завершится после завершения вашей perl-программы.
Бит под строкой #! Perl - это текущая программа perl, которую perl.exe знает, как пропустить при запуске этой строки:
@c:\strawberry-perl-port\perl\bin\perl.exe -x "path\to\my\perl.cmd" %*