#!/usr/bin/perl -w
use strict;
use IO::Socket;

my @tele;
#push(@tele, 0xF0);
#push(@tele, 0x06);
#push(@tele, 0x03);
#push(@tele, 0x01);
#push(@tele, 0x03);
#push(@tele, 0x31);
#push(@tele, 0x0);
push(@tele, hex(0xF0));
push(@tele, hex(0x06));
push(@tele, hex(0x03));
push(@tele, hex(0x01));
push(@tele, hex(0x03));
push(@tele, hex(0x31));
push(@tele, hex(0x0));
  
my $bytearray = pack("H", 0xF0, 0x06, 0x03, 0x01, 0x03, 0x31, 0x0);

#Daten schreiben in Datenspeicher-Server
my $ip = '192.168.1.11';
my $port = 12004;
my $socket = new IO::Socket::INET (
  PeerAddr => $ip, 
  PeerPort => $port,
  Proto=> "tcp",
  Type => SOCK_STREAM,
);
die "Keine Verbindung zum BAOS770 über $ip:$port möglich! $!\n" unless defined $socket;
  
#$socket->autoflush(1);

print $socket $bytearray;
  
#$socket->send( @tele );
#$socket->send( "\r\n" );
#print $socket @tele;
print $socket "\r\n"; 

#Ich sende zwar die Daten, aber erfolglos.
#Bis hierhin komme ich immer, dann kommt aber nie eine Antwort vom KNX Server :-( 
  
my $answer = <$socket>; 
print "Receiving: $answer\n"; 
close($socket);