do
    {
        $connected = connect(SOCK, $paddr);
        
        if($connected)
        {
            $line = <SOCK>;
            print("$line online\n");
            close(SOCK);
            $connected = 0;
            
            if ($line =~ /SSH/)
            {# connected to sshd - I'm ready 
                $done = 1;
            }
            else
            {# connected to ... who the heck is listening on port 22?
             ...some code here
            }          
        }
        else
        {
            $attempts++;
            print("Trying again ... ($attempts) \n");
            sleep(3); #sleep 3 seconds before trying again
        }
    }
    while(!$done);