my ($msg);
    my ($receiver, $ccList, $sender, $replyTo, $subject, $body) = @_;

##</code><code>##

    my ($msg);
    for (@_) {
        print "\n",$_,"\n" if (m{lightgreen});
    };
    my ($receiver, $ccList, $sender, $replyTo, $subject, $body) = @_;