my $msg = pack("C*",0x80,0x10,0x29,
         0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x01,0x20,
         @data,
         0x00,0x00,0x20,0x00,0x01,0xc0,0x0c,0x00,0x20,
         0x00,0x01,0x00,0x04,0x93,0xe0,0x00,0x06,0x60,
         0x00,@ip);
        my $len_msg = length($msg);
        my $num_short = $len_msg / 2;

        bind(S, $us);
        send(S, $msg, 0, $them) or die "send : $!";
        my $res='';
        recv(S,$res,0,0);
        close S;