perl -e 'print crypt("mypassword","Bz");'