DES in Perl was incomplete and not very useful