t {   my $me = shift;    if (exists ${*$me}{'net_smtp_chunking'}) {     my $data = shift;      $me->_BDAT(length $data)       && $me->rawdatasend($data)       && $me->response() == CMD_OK;   }   else {     carp 'Net::SMTP::bdat: CHUNKING extension is not in use, call data instead';   } }   sub 