$data = join('',@buffor);                           #Modbus frame to scalar
                print "ASCII characters sent: $data\n";
                if ($Telnet) {
                        #print "Sending over telnet\n";
                        $pass=$ob->print($data)
                        or warn "Modbus client : problem with send: $!\n";