#!/usr/bin/perl -w                                 
                                                   
use MIME::Base64;                                  
use strict;                                        
use warnings;                                      
use CGI;                                           
use CGI::Carp qw(fatalsToBrowser);                 
                                                   
open(M, "|/usr/sbin/sendmail -t");                 
                                                   
print M "To: Piero <gior\@imap>\n";                
                                                   
print M "From: $ABSENDER <$ABSENDER\@blabla.de>\n";
                                                   
print M "Subject: Test\n";                         
                                                   
print M "Content-type: text/html\n\n";             
                                                   
my ($Feld, $Name, $Wert);                          
my %Formular;                                      
                                                   
my $cgi=CGI->new();                                
print $cgi->header(-type=>'text/html');            
%Formular=$cgi->Vars();                                                         
                                                                                
$ip = $ENV{'REMOTE_ADDR'};                                                      
open(ABSENDER,"hosts) or die $!;                                                
while(my $line = <ABSENDER>) {                                                  
chomp $line; #Zeilenumbruch entfernen                                           
if($line =~ /^$ip/) { #wenn die Zeile mit der IP beginnt                      
$name = (split (/\s+/,$line))[1]; # Der Name ist durch ein oder mehrere Leerzeichen von der IP getrennt                                                         
}                                                                               
}                                                                               
close ABSENDER;