Select Code to Download

   my %mail = ( To      => "$address1",
               Cc      =>  "$email2",
...
           );

  sendmail(%mail) or die $Mail::Sendmail::error;

Error sending to <me@mine.com> (553 sorry, that domain isn't in my lis
+t of allowed rcpthosts (#5.7.1))