Help for this page

Select Code to Download

Select or download this

my ($name,$val,%hostinof);
while (<>) {
...
      $name = lc $name; $hostinfo{$name} = [ $val ];
   } else { $name = '' ]
}