Maybe change

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

to

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