Help for this page

Select Code to Download

Select or download this

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

Select or download this

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