#!/usr/bin/perl -w

#TCP-Client
#Hartych, Tobias EIT 4056051
#Dreißig, Tobias EIT 40?????

use strict; #strict macht debugging einfacher
use IO::Socket::INET; #nutze Modul IO::Socket::INET um einen neuen Socket zu erschaffen

#auto-flush
$| = 1;

#Variablen deklarieren
my ($socket,$response,$size,$req);


#bekomme server-ip und server-port von Kommandozeilenparamter
my $peeradr = $ARGV[0];	#erster Paramenter wird in $PeerAdress eingespeichert		

my $peerport = $ARGV[1];	#zweiter Paramenter wird in $PeerPort eingespeichert		

$socket = new IO::Socket::INET
(		
PeerHost => $peeradr,    #PeerAddr von $socket ist eingegebener Paramenter $PeerAdress
PeerPort => $peerport,	 #PeerPort von $socket ist eingegebener Paramenter $PeerPort	
Proto => 'tcp',		 #Transportprotokoll: TCP
);
die "Fehler bei erstellen des Socket's: $!\n" unless $socket;

print "\nVerbindung mit Server erfolgreich!\n";


#Daten, welche zum Server gesendet werden
$req = <STDIN>;
$size = $socket->send($req);
print "sende Daten mit einer Laenge von $size\n";

#informiere Server das Daten gesendet wurden
shutdown($socket, 1);

#erhalte eine Antwort von bis zu 1024 Bytes vom Server 
$response = "";
$socket->recv($response, 1024);
print "Erhaltene Antwort\n";	

#Schließe Socket
$socket -> close();