assoc .pl
ftype perlfile           Replace "perlfile" with whatever .pl returned