print $fh pack "N", $anzahl; # schreibt 4 bytes