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