Shell Programming and Scripting

Received: from MEINSERVER.MEINEDOMAIN.de (MEINEDOMAIN.de [212.78.165.xx])
     by zieldomain.de (Postfix) with ESMTPS id 6C123A385E
     for <empfaenger@email.de>; Thu, 21 Oct 2010 11:43:21 +0200 (CEST)
...
Received: (from USER@localhost)

LOCAL_DOMAIN(`MEINSERVER.MEINEDOMAIN.de')dnl

#!/usr/bin/perl

use strict;
use MIME::Lite; 
use Time::localtime; 
use MIME::Words qw(:all);

use open ':utf8';

my $mailtext="";

mail();
sub mail 
{

        my $sendmail = "/usr/sbin/sendmail -t";
        my $from = "me\@email.de";
        my $reply_to = "me\@email.de";
        my $subject  = "Subject";
        my $mail_message = "content";

        my $msg = MIME::Lite->new
        (
                #Subject => $subject,
                Subject => $subject,
                From    => $from,
                To      => 'receptient@email.de',
                Type    => 'multipart/mixed',
        );

        $mailtext=$mail_message;

        my $part = MIME::Lite->new(
                 Type     => 'TEXT',
                 Data     => $mailtext,
        );


        MIME::Lite->send("sendmail", $sendmail);
        $msg->send;
}
exit;