assoc .plA=PerlScriptAnnoying
FTYPE PerlScriptAnnoying=cmd.exe /k "perl.exe" %1 %*
set pathext=%pathext%;.PLA