решено организация смс оповещения - нужно что бы смс приходили на 2 номера

[nikorip]

Всем привет! Стоит перед мной задача организация смс оповещения. На основании вот этой статьи https://habrahabr.ru/post/154065/
Все организовал. Но нужно что бы смс приходили на 2 номера. Что на до дописать в скрипте что бы это осуществить. Всем заранее спасибо. Вот собственно и сам скрипт.

#!/usr/bin/perl -w
    use strict;
    use IO::Socket;

    my($server, $newmsg,

    $max_len, $server_port);
    $max_len = 160;
    $server_port = 12345;

    $server = IO::Socket::INET->new(LocalPort=>$server_port, Broadcast=>0, Proto=>"udp")
    or die "Error starting UDP Server on port $server_port: $@\n";
    print "UDP Server started on port $server_port\n";
    $newmsg = "";
    while($server->recv($newmsg,$max_len)){
    if($newmsg){
    #my($port, $ipaddr) = sockaddr_in($server->peername);
    print "Received: $newmsg \n";
    open(GNOKII, "| gnokii --sendsms +7**********") || die "Starting gnokii failed: $!\n";
    print GNOKII $newmsg;
    close(GNOKII);
    }
    }

    die "recv: $!";

Решение в следующем сообщении

[Alar]

в чем проблема просто два раза код повторить отправки, указав другой номер?

открыли отправили закрыли

раз

 open(GNOKII, "| gnokii --sendsms +7**********") || die "Starting gnokii failed: $!\n";
    print GNOKII $newmsg;
    close(GNOKII);

два

 open(GNOKII, "| gnokii --sendsms +7**********") || die "Starting gnokii failed: $!\n";
    print GNOKII $newmsg;
    close(GNOKII);

[nikorip]

спасибо Alar