my %mail = ( To      => "$address1",
               Cc      =>  "$email2",
           From    => "$emailfrom",
            Subject    => "$email_subject",
            Message => "$email_mess",
           );

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

##</code><code>##

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