A simple perl script for generating strong password