IO::Socket dauerhafte verbindung

[Manfred K.]

Hallo ich braeuchte euere hilfe.
Ich versuche gerade socket programmierung in perl zu lernen. Zum anfang erschien mit das modul IO::Socket am einfachsten deswegen versuch ich es erstmal damit.
Habe zwei perl dateien. Einen server und einen client.

Der server sieht so aus
#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

my $neuersocket = new IO::Socket::INET (
          LocalHost => "localhost",
          LocalPort => "7070",
          Proto => "tcp",
          Listen => 1,
          Reuse => 1,
);

my $zeigesocket = $neuersocket->accept();
while (<$zeigesocket>) {
          print $_;
}

close($neuersocket);

Der Client sieht so aus:

#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

my $schreibesocket = new IO::Socket::INET (
          PeerAddr => "localhost",
          PeerPort => "7070",
          Proto => "tcp",
);

print $schreibesocket "Test";
close($schreibesocket);

Das funktioniert auch prima aber nach der ersten meldung vom client beendet sich der server. Wie kann ich es machen das der server sich erst beendet wenn ich es will?

danke mfg