Select Code to Download

sub gethost{
        my ($val)=@_;
...
        }
        return "";
}

if(/\s*Listen\s+(\S*)/){
       $instdetails{$instnum}{Listen}{$1}=1;
...
       print ERR "$instnum $listen $instdetails{$instnum}{Listen}{$1}{
+host}";
       next;
}