my $mydom = 'ox.bow'; # eigene Domain
my $mid;

### Message-ID generieren lassen
use Email::MessageID;
$mid = Email::MessageID->new( host => $mydom );
###

### Message-ID selbst setzen 
$mid = "4711-0815-oxnard77-xyz@" . $mydom; 
###

my %conf = (
  USER => 'm.blah-me@ox.bow',
  TO => 'murks@spam.local'
);
my %headers = (
    From    => qq"<$conf{USER}>",
    To      => qq"<$conf{TO}>",
    Subject => q'No SPAM please!',
    'Message-ID' => $mid
);
my $body = "\nTEST";
my $msg = MIME::Lite ->new (  
	%headers,  
	'X-Mailer' => 'myMail/1.1',
	Data => $body,  
	Type => 'text/plain'  
);
$msg->print;