sub sendMail{
    my $receiver = shift;
    my $body = 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";
    $smtp->datasend($body) or die "Failed to send! - Body : $!\n";
    $smtp->datasend("\n") or die "Failed to send! - After Body Break : $!\n";
    $smtp->dataend() or die "Failed to send! - Data End : $!\n";
}