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);
                  # $timeout = 0;
                  # print $s_output;
                } else {
                  $timeout++;
                }       
                print $timeout;
        }