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