change the seed selection inside the perl script
fix bugs bayes module