assoc('.pl', 'd:\perl\bin\perl.exe');
# so you can run programs like this:
run_cmd('c:\stuff\script.pl');