C:\test>assoc .pl
.pl=perl_script

C:\test>ftype perl_script
perl_script=e:\perl\bin\perl.exe -w %1 %*


##</code><code>##

@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT


##</code><code>##

goto endofperl
:WinNT


##</code><code>##

if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15