ftype Perl says
Perl="C:\strawberry\perl\bin\perl.exe" "%1" %*
assoc .pl says
.pl=Perl