sub send {
  my $self=shift;
  if ( $_[0] ) {
    $self->{message_body} = shift;
  }
  my $msg = MIME::Lite->new(
                            From=>'web-committee@bayshoredogclub.org',
                            To=> 'members@bayshoredogclub.org',
                            Subject => $self->{subject},
                            Type=>"TEXT",
                            Data=> $self->{message_body}
                           );
  $msg->send();

}


##</code><code>##

An embedded and charset-unspecified text was scrubbed...
Name: not available
Url: <url snipped off>