#!/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");

# den Inhalt der Datei versenden
$out->print($_) while(<$in>);

# die Datei schließen wenn sie nicht mehr gebraucht wird.
close($in) or die("ERROR Close File $file ($!)\n");

#Schleife, für die Kommunikation
while(defined(my $msg_out = <STDIN>))
{
  #Nachricht verschicken
  print $out $msg_out;  # ist das genauso wie $out->print($_) ?
                        # ja ist es, nur ist hier "$_" "$msg_out"

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

  #Nachricht ausgeben
  print $msg_in;
}

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

# STDERR schreiben...
warn "Verbindung beendet..\n";