use Digest::MD5;
    $pass= geheimesPasswort;
    $nick= Ichbins;
    $md5 = Digest::MD5->new;
    $md5 -> add("$nick\0$pass");
    $digest = $md5->hexdigest;
    print "Digest is $digest\n";