assoc .ptk=PerlTk
ftype PerlTk=c:\perl\bin\wperl.exe "%1" %*