assoc .pl=perl_script
ftype perl_script=c:\perl\bin\perl.exe -w %1 %*