$ENV{'REMOTE_ADDR'};
open(R_HOSTS,"<$host_file") or die $!;
while(my $line = <R_HOSTS>){ 
 chomp $line; # Zeilenumbruch entfernen
 if($line =~ /^$ip/){ # wenn die Zeile mit der IP beginnt
   $name = (split(/\s+/,$line))[1]; # Der Name ist durch ein od. mehrere Leerzeichen von der IP getrennt
 }
}
close R_HOSTS;