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

assoc cgi=PerlCGI
ftype PerlCGI=c:\perl\bin\perl.exe "%1" %*