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

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