use Digest::MD5 qw(md5_hex);
$checksum_Client = md5_hex(@daten);