#!/usr/bin/perl
use IO::Socket::INET
print "IP: 192.168.1.93\n";
$host = "193.168.1.93";
print "Port: 1025\n";
$port = 1025;
$waage = new IO::Socket::INET->new(   PeerAddr => $host,
                                  PeerPort => $port,
                                  Proto => 'tcp');

/*Abfrage des Ruhe gewichts */
$msg="q\$\r\n";
$msgin="";
print "Abfrage  Ruhegewicht raus\n";
if ($waage->send($msg)){
  $quittung=$waage->recv($msgin,100);
  print ("von Waage: $msgin \n");
  if ($quittung=="w5"){
    $waage->recv($msgin,100);
    print ("von Waage: $msgin \n");
    $gewicht = (substr($msgin,2,6) . "." . substr($msgin,9,2)) * 1;
    print ("von Waage: $gewicht \n");
  }
}

print "ende";
close(waage)