sub create_file_association { # Don't leave a space between 'Perl' and '>nul'. # See http://bugs.activestate.com/show_bug.cgi?id=68656 system("assoc .pl=Perl>nul") == 0 or warn "Could not create .pl file type association\n"; system(qq(ftype Perl="$perl" "%1" %* >nul)) == 0 or warn "Could not define command to run .pl files\n"; }