perl xs interface for a portable traditional crypt function. Boris Zentner (bzm@2bz.de)