Select Code to Download

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

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