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

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