add a perl script for generating random password