$B=J71

##</code><code>##

my $smtp = Net::SMTP->new( $smtp_server );
$smtp->mail( $self->smtp_from() );
$smtp->to( $self->smtp_to() );
$smtp->data();
$smtp->datasend( "To: " . MIME::Words::encode_mimeword($self->to(), 'Q', 'utf-8') . "\n" );
$smtp->datasend( "From: " . MIME::Words::encode_mimeword($self->from(), 'Q', 'utf-8') . "\n" );
    
$smtp->datasend( "Subject: " . MIME::Words::encode_mimeword($self->subject(), 'Q', 'utf-8') . "\n" );    
$smtp->datasend("MIME-Version: 1.0\n");
$smtp->datasend("Content-Transfer-Encoding: 8bit\n");
$smtp->datasend("Content-Type:text/plain; charset=utf-8\n");  	
print $self->body();
$smtp->datasend( "\n" );
$smtp->datasend( $self->body() );
$smtp->dataend();