perl Crypt-DES