#!/usr/bin/perl -w                                 
                                                  
use MIME::Base64;                                  
use strict;                                        
use warnings;                                      
use CGI;                                           
use CGI::Carp qw(fatalsToBrowser);

my ($Feld, $Name, $Wert);
my %Formular;

my $cgi=CGI->new();                        
print $cgi->header(-type=>'text/html');            
%Formular=$cgi->Vars();                                                         

my $hosts = 'Pfad/zum/hostfile'; 
my $name = ();
my $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 
  }                                                                               
}                                                                               
close ABSENDER;

open(M, "|/usr/sbin/sendmail -t");

print M "To: Piero <gior\@imap>\n";                
print M "From: $name <$name\@blabla.de>\n";
print M "Subject: Test\n";                         
print M "Content-type: text/html\n\n";
print M "Dies ist eine Testmail von $name";
close M;