#!/usr/bin/perl -w

use strict;
use IO::Socket;
use Net::XMPP;
use utf8;


        my $port = 4550;
        my $hostName = 'jabber.alpari.org';
        my $portNumber = 5222;
        my $componentName = '';
        my $userName = 'unixbot';
        my $passWord = 'unix123bot';
        my $resource = 'work';
        my $tls = 1;
        my $connectionType = 'tcpip';
        my $conferenceName = 'unix@conference.jabber.alpari.org';
        my $debugLevel = 1;
        my $bot = new Net::XMPP::Client(
                debuglevel => $debugLevel
                                        );

# Создаем сокет
        socket(SOCK, # Указатель сокета
        PF_INET, # коммуникационный домен
        SOCK_STREAM, # тип сокета
        getprotobyname('tcp') # протокол
        ) or die ("Не могу создать сокет!");
        setsockopt(SOCK, SOL_SOCKET, SO_REUSEADDR, 1);

# Связываем сокет с портом
        my $paddr = sockaddr_in($port, INADDR_ANY);
        bind(SOCK, $paddr) or die("Не могу привязать порт!");

# Ждем подключений клиентов
        print "Ожидаем подключения...\n";
        listen(SOCK, SOMAXCONN);

        while (my $client_addr = accept(CLIENT, SOCK)){
        # Получаем адрес клиента
                my ($client_port, $client_ip) = sockaddr_in($client_addr);
                my $client_ipnum = inet_ntoa($client_ip);
                my $client_host = gethostbyaddr($client_ip, AF_INET);
        # Принимаем данные от клиента
                my $data;
                my $count = sysread(CLIENT, $data, 1024);
                chomp($data);
                print "$data\n";

        # Отправляем данные клиенту
                print CLIENT "Hello, world\n";

                # Закрываем соединение
                close(CLIENT);


                }