my $md5 = Digest::MD5->new;
$md5->add("hallo@fehl");
$md5->add("1112");
my $xx = $md5->digest;