my $msg = MIME::Lite->new(
    To => 'Alias@xxxx.com',
    Subject = $subject,
    Type => 'text/plain,
    Data => $message
);

##</code><code>##

open $CMD, "|/usr/bin/mailx -s \'$subject\' Alias\@xxxx.com" or die("Cannot open CMD");
print $CMD $message;
close $CMD;