C:\>ftype PerlScript=perl.exe %1 %*
Access is denied.
Error occurred while processing: PerlScript.

C:\>assoc .pl=PerlScript
Access is denied.
Error occurred while processing: .pl.