my $password = 'password';

my $encrypted_password = crypt $password, 'AB';

printf "password: %s encrypted_password: %s\n",
  $password, $encrypted_password;


printf "
crypt(password,AB): %s
encrypted_password: %s
crypt(password,BC): %s
crypt(password,encrypted_password): %s
\n",
  crypt($password,'AB'),
  $encrypted_password,
  crypt($password,'BC'),
  crypt($password,$encrypted_password);