> assoc .pl
.pl=Perl
 > ftype Perl
Perl=perl "%1" %*
 >