use Digest::MD5 qw(md5);
$Checksum = md5($daten);