Select Code to Download

  perl -MMail::Address -wle 'print Mail::Address->parse("1002\@151.104
+.234.7")'                                     
  Mail::Address=ARRAY(0x815a8bc)

  {
    package My::MIME::Lite;
...
  $mime_msg = My::MIME::Lite->new(...);
  My::MIME::Lite->send(...);
  $mime_msg->send();