perl encryption primer