sub sendmail {
    my ($REPORT,$CONFIG,$RESULT) = @_;
    my $T = gettime();
    my $MAIL_TO = $CONFIG{MAIL_TO}[0];
    delete $CONFIG{MAIL_TO}[0];
    my @MAIL_CC = $CONFIG{MAIL_TO};