C:\> assoc .pl
.pl=perlscript

C:\> ftype perlscript
perlscript=perl "%1" %*

C:\>