#!/usr/bin/perl;

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

my $file='./datei1';
my $server='meinappserver';
my $port='8080';

open(my $in,'<',$file) or die("ERROR open File $file ($!)\n");
my $out=IO::Socket::INET->new("$server:$port") or die("ERROR open Socket $server:$port\n");

$out->print($_) while(<$in>);

#Schleife, für die Kommunikation

while(defined(my $msg_out = STDIN->getline)) {

#Nachricht verschicken
print $out $msg_out;  // ist das genauso wie $out->print($_) ?

#Nachrichten empfangen
my $msg_in = <$socket>;

#Nachricht ausgeben
print $msg_in;
}

#Socket schließen
$out->close || warn "Fehler beim schließen des Sockets: $@";

warn "Verbindung beendet..\n";