PERL und SSL-Ports

[Michael H.]

hallo Newsgroup,

ich habe eine absolute "Denkblockade" in Sachen Perl und Ports.
Wenn ich auf einem Rechner prüfen will, ob dort SSL enabled ist,
würde ich das vieleicht wie siehe unten machen.
das Problen ist, wenn das Script einen Rechner entdeckt, des SSL an
hat bleibt die ganze Geschichte in der while-Schleife stecken.
d.h. das Script läuft nicht weiter.
Wo ist der Fehler?? Kann mir irgendjemand helfen??

(Es soll einfach nur eine Abfrage werden ob auf Port 443 im MS-IIS
SSL enabled ist.)
##################################################################
use IO::Socket;
    
    
      my  $remote = IO::Socket::INET->new( Proto   => "tcp",
                                         PeerAddr  => $host,
                                         PeerPort  => "443",
                                        );
        unless ($remote) { die "cannot connect to http daemon on $host" }
        $remote->autoflush(1);
        print $remote "GET $document HTTP/1.0\n\n" ;
      
        while (defined ($ret = <$remote>)) {
  
         $retu .= $ret;
        }
        
        close $remote;
    
    
#################################################################

DANKE Michael