# Laden des Moduls "Digest::MD5"
# bedenke, das das "::" eine Pfadangabe sein kann und im dem meisten fällen auch ist.
# das Modul befindet sich also ungefähr hier:
# /usr/lib/perl/5.10/Digest/MD5.pm
# alles vor "Digest" kann variieren, je nach Betriebssystem/Distribution oder Art der Installation.
# das ".pm" identifiziert es als PerlModul
use Digest::MD5;

# Zuweisung zweier Variablen
# denke dringend darüber nach die Module
# "strict" und "warnings"
# zu verwenden, da sie dir helfen Fehler in Scripten zu zu finden
# zwar zwingen sie dich ein "exakteres" Perl zu schreiben,
# dafür findest du Fehler, (z.B Schreibfehler) viel leichter
$pass= "geheimesPasswort";
$nick= "Ichbins";

# das Erzeugt ein Objekt, aus der Klasse "Digest::MD5",
# welches auch das  Modul ist.
# Dabei werden im Objekt einige Variablen erzeugt
# und auf einen definierten Wert gesetzt.
# unter anderem auch eine Variable,
# die den zu hashenden String aufnehmen wird.
$md5 = Digest::MD5->new;

# Das fügt der Variable im Objekt (die oben im Objekt als leerer String initialisiert wurde)
# den String "Ichbins\x000geheimesPasswort" hinzu
# das ist gleich bedeutend zu:
# $md5 -> add($nick);
# $md5 -> add("\0");
# $md5 -> add($pass);
# oder
# $md5 -> add("Ichbins");
# $md5 -> add("\0");
# $md5 -> add("geheimesPasswort");
# Das "\0" würde binär als "00000000" dargestellt
# Das "I" z.B. würde binär als "01001001" dargestellt
$md5 -> add("$nick\0$pass");

# die MD5-Summe erzeugen
# und als Hexadezimal Kodierter String in "$digest" schreiben
$digest = $md5->hexdigest;