{
    package My::MIME::Lite;
    use MIME::Lite;
    our @ISA = qw/ MIME::Lite /;
    *extract_full_addrs=*MIME::Lite::my_extract_full_addrs;
    *extract_only_addrs=*MIME::Lite::my_extract_only_addrs;
  }
  $mime_msg = My::MIME::Lite->new(...);
  My::MIME::Lite->send(...);
  $mime_msg->send();