@ECHO OFF 
C:\BIN\PERL\TINYPERL -I C:\BIN\PERL\LIB "%1" %2 %3 
ECHO. 
PAUSE 

##</code><code>##

PS C:\Strawberry> Ftype Perl_program_file="C:\Strawberry\perl\bin\perl.exe" %1
Ftype : The term 'Ftype' is not recognized as the name of a cmdlet, function, script file, or operable program. Check
the spelling of the name, or if a path was included, verify that the path is correct and try again.
At line:1 char:1
+ Ftype Perl_program_file="C:\Strawberry\perl\bin\perl.exe" %1
+ ~~~~~
    + CategoryInfo          : ObjectNotFound: (Ftype:String) [], CommandNotFoundException
    + FullyQualifiedErrorId : CommandNotFoundException

PS C:\Strawberry>

##</code><code>##

C:\Users\tblaz>assoc .pl
.pl=Perl_program_file

C:\Users\tblaz>

##</code><code>##

@echo off
rem set env variables
set TERM=dumb
set PERL_JSON_BACKEND=JSON::XS
set PERL_YAML_BACKEND=YAML
rem avoid collisions with other perl stuff on your system
rem set PERL5LIB=
set PERL5OPT=
set PERL_MM_OPT=
set PERL_MB_OPT=

perl -e "printf("""Perl executable: %%s\nPerl version   : %%vd\n""", $^X, $^V)" 2>nul
if ERRORLEVEL==1 echo.&echo FATAL ERROR: 'perl' does not work; check if your strawberry pack is complete!

Ftype Perl_program_file="C:\Strawberry\perl\bin\perl.exe" %1
ECHO. 
PAUSE 


##</code><code>##

Perl executable: C:\Strawberry\perl\bin\perl.exe
Perl version   : 5.30.0
File type 'Perl_program_file' not found or no open command associated with it.

Press any key to continue . . .