Kickstart encrypted password

Easy way to create encrypted password for kickstart:

perl -e 'print crypt("password", "Xa") . "\\n";'p
centos  kickstart  perl