small perl script to comment out unused parameters