while (my $tmp = $sock->accept()) {
      $tmp->send("Hallo dort! :)");
}