assoc .pl
ftype perlfile           Replace "perlfile" with whatever .pl returned

##</code><code>##

"D:\Perl\bin\perl.exe" "%1" %*

##</code><code>##

ftype perlfile="D:\Perl\bin\perl.exe" "%1" %*