assoc .ptk=PerlTk ftype PerlTk=c:\perl\bin\wperl.exe