use MIME::Base64;  # http://www.cpan.org/modules/by-module/MIME/
use Digest::SHA1;  # http://www.cpan.org/modules/by-module/MD5/
my $plain = "Passwort"; # Passwort unverschlüsselt
my $crypt = '{SHA}' . MIME::Base64::encode_base64( Digest::SHA1::sha1( $plain ) ); # als BASE64 verschlüsselt, {SHA} als Kennung zum Unterschied zu MD5 und Crypt-Passwärtern
# falls mal gemixt wird (kommt vor);)