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