use warnings;
use strict;
use MIME::Lite;

my $msg;

$msg = MIME::Lite->new(
    From    => 'testmail@testmailsystem',
    To      => 'benni05@t-online.de', 
    #Cc      => 'some@other.com, some@more.com',
    Subject => 'TESTMAIL',
    Type    => 'TEXT',
    Data => "TEST"
);
$msg->send("sendmail", "/usr/lib/sendmail -t -oi -oem", Debug => 1);