use bytes; # wichtig für length()
$handle->print(pack("N", length($_)).$_) for @liste;