print pack("A17 A1 A17", $name, " ", $wert), "\n";