#!/usr/bin/perl -w
use strict;
use warnings;

use utf8;
use IO::Socket;
use MIME::Base64;

use Data::Dumper;
$Data::Dumper::Useqq=1;


my $host = "192.168.1.36"; # Your Cube-IP or hostame Here!
my $port = "80";
my $devices = "5";
  my $handle = IO::Socket::INET->new(
          Proto     => "tcp",
          PeerAddr  => $host,
          PeerPort  => $port
        ) // die("ERROR open Socket $host:$port ($!)\n");

  $handle->blocking(0);
  binmode($handle);
  
  
while(1)
{

  

  my $finished = 0;
  my $time=time();
  my $buffer='';
   print "Send2\n";  
  while(time() < $time+20 && $finished==0)
  {
    my $line='';
    $handle->read($line,4096);
    $finished=1 if(index($buffer,'L:')!=-1);
    $buffer.=$line if(length($line));
    
  }



  if(!$finished)
  {
    print "No Connection\n";
    next;
  }

    print $buffer;
    
   

   
   sleep(1);
    
    print "Send\n";              
   $handle->send("l:\n");

   
}

$handle->close();