sub sendMail{
    my $receiver = shift;
    my $name;
    
    if($test) {
        $receiver =~ /^(.+?)\@/;
        $name = ucfirst($1);
    }
    
    else { $name = shift; }
    
    my $subject = "Sociabull Weekly";

    print "Sending to $receiver\n";

    $smtp->mail($connect{sender});
    $smtp->recipient($receiver);
	
    $smtp->data() or die "Failed to send! - Data initialize : $!\n";

    $smtp->datasend("To: <$receiver> \n") or die "Failed to send! -- To : $!\n";
    $smtp->datasend("From: $connect{sender_name} <$connect{sender}> \n") or die "Failed to send! -- From : $!\n";
    $smtp->datasend("Content-Type: text/html \n") or die "Failed to send! -- Content-Type : $!\n";
    $smtp->datasend("Subject: $subject\n") or die "Failed to send! - Subject : $!\n";
    $smtp->datasend("\n") or die "Failed to send! - Line Break : $!\n";

	for my $html_lines(@html){
		chomp $html_lines;
        if ($html_lines =~ /\<TMPL\_VAR NAME\=USER\_NAME\>/){
            $html_lines =~ s/\<TMPL\_VAR NAME\=USER\_NAME\>/$name/;
        }
		$smtp->datasend($html_lines) or die "Failed to send! - Body : $!\n";
	}
    $smtp->dataend() or die "Failed to send! - Data End : $!\n";
}