Help for this page
if(/\s*Listen\s+(\S*)/){ $instdetails{$instnum}{Listen}{$1}=1; $instdetails{$instnum}{Listen}{$1}{host}=gethost($1); next; }
printf "\n%-20s","Listen:"; $hashref=$instdetails{$instnum}{Listen}; ... $host=$instdetails{$instnum}{Listen}{$listen}{host}; printf "\n%-20s$listen ($host)",""; }