Updated perl script for random profiles
Merge pull request #7 from wuyanna/sbranch

Updated perl script for random profiles