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

my $msg;

$msg = MIME::Lite->new(
    From    => 'testmail@testmailsystem',
    To      => 'testziel@'testzielsystem,
    #Cc      => 'some@other.com, some@more.com',
    Subject => 'TESTMAIL',
    Type    => 'TEXT',
    Data => "TEST"
);
$msg->send; #default is to use "sendmail".