elsif($params{submit}){                                              
my $hosts = '/home/webmaster/cgi-bin/hosts';                         
my $name = ();                                                       
my $ip = $ENV{'REMOTE_ADDR'};                                            
open(ABSENDER,"<$hosts") or die $!;                                      
while(my $line = <ABSENDER>){                                            
chomp $line; #Zeilenumbruch entfernen                                    
if($line =~ /^$ip/) { #wenn Zeile mit IP beginnt                         
$name = (split (/#\s+/,$line))[1]; #Name ist durch leerstellen getrennt  
}                                                                        
}                                                                        
close ABSENDER;                                                          
my $sender = 'Piero <gior@imap.de>';                                     
#my $sender = "$name\n";                                                 
my $empfaenger = 'Du <gior@imap>';                                       
my $betreff = 'Artikelliste';