HTTP Banner einlesen?

[Sven]

Hi,

uff, kann mir mal jemand auf die Sprünge helfen wie ich einen kompletten HTTP banner via Perl einlesen kann? Meine Versuche (siehe unten) tun nicht ganz das was sie sollen (sie liefern nichts!!!)

Danke euch!

myTry:
sub http_ident
{
# Bilden der Socket-Adresse (Port und IP)
$iaddr=inet_aton($Host) or die "Kann Server nicht auflösen!\n";
$paddr=sockaddr_in(80,$iaddr) or die "Kann keine Socket-Adresse bilden!\n";
  
# Erstellen des Socket
socket(Socket,PF_INET,SOCK_STREAM,getprotobyname('tcp')) or die "Kann keinen Socket erstellen!\n";
  
# Mit Socket verbinden
connect(Socket,$paddr) or die "Keine Verbindung möglich!\n";
  
# HTTP Request an Socket senden
send Socket,"HEAD / HTTP/1.1\n\n",0;

#$response = <$Socket>;
#print "$response\n";
#print LOG "$response\n";
  
# Auslesen der Rueckgabewerte des Servers
while(<Socket>)
{

print LOG "$_";
  ($tag,$value)=split /:/,$_;
  if ($tag=~/Server/i)
  {
   $Server_Typ= "Server:$value";
   last;
  }
}
}