use IO::Socket;

my $server = IO::Socket::INET->new(
    LocalPort => 2005,
    type => SOCK_STREAM,
    Reuse => 1,
    Listen => 10
)
    or die "Server läuft nicht: $@\n";

while (my $client = $server->accept()) {
    print $client "Antwort\n";
}
close($server);

use IO::Socket;

my $socket = IO::Socket::INET->new(
    PeerAddr => "127.0.0.1",
    PeerPort => "2005",
    Proto => "tcp",
    Type => SOCK_STREAM
)
    or die "Kann Verbindung zum Server nicht herstellen: $@\n";


while(<$socket>) {
    print $socket "Frage\n";
}

close($socket);