perl -e "print crypt('abcdef', 'uvwxyz')" uv...........