#!/usr/bin/perl
use strict;
use IO::Socket;
 
my $x = 1;
 
my $sock = IO::Socket::INET->new( PeerAddr => '192.168.156.10',
PeerPort => 10001,
Proto => 'tcp' )
or die "konnte verbindung nicht aufbauen: $@\n";
my $answer = "ok";
 
my $message = chr(2) . "T3" . "Schreibe auf Display" . chr(4);
 
print $sock "$message";
 
while($x) 
{
   $x++;
   print "Antwort 1 $answer\n";
   print "sende text\n";
   $message = chr(2) . "T3" . "Schreibe zum $x mal" . chr(4);
   print $sock "$message"; #senden des strings
 
   $answer = <$sock>;
   print "Antwort 2" . $answer . "\n";
   if ($answer =~ m/R09/)
   {
      $message = chr(4);    #sende nachricht empfangen
      print $sock "$message";
      $message = chr(2) . "O210" . chr(4);   #sende akustisches signal
      print $sock "$message";
      print "Karte erkannt\n";
   }
   print $x . "-" . $answer;
 
   sleep 1;
}