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

$out->close();
close($in);