if ($s_ip) { $ip = $s_ip . ":"; } else { $ip = "port "; }

my $s_socket = IO::Socket::INET->new(
        Proto=>"udp",
        LocalAddr=>"$s_ip",
        LocalPort=>"$s_port"
) or die ("\nCan't setup UDP socket on $ip:$s_port $!\n");

print("Opening UDP listen socket on $ip$s_port ... ok\n");

        while ($timeout % 60 == 0)
        {
                print "hier";
                if(IO::Select->new($s_socket)->can_read(2)) {  # 2 second timeout
                        while (my $rc = $s_socket->recv($s_output, 1024) ) {
                        $buffer .= $s_output;
                        }
                        print $buffer;
                        $timeout = 0;
                  # $s_socket->recv($s_output, 1024);
                  # print $s_output;
                } else {
                  $timeout++;
                }       
                print $timeout;
      }