if( blah blah blah )
  {
  my $email_text = join( '', $POPobject->get );
  $MIMEobject = Email::MIME->new( $email_text );
  };

##</code><code>##

$MIMEobject->DESTROY;