Well know it's sending email :)

sub send_mail {
    my ($send_from,$subject,$message) = @_;
    open(SENDMAIL, "|/usr/sbin/sendmail -oi -t")
    or warn "cannot open pipe $!" and return ("<span class='darkredbol
+d'>Sorry you email coudn't be send. $!</span>"); 
  
    print SENDMAIL "From: $send_from \n";
    print SENDMAIL "To: aaa\@aaa.com \n";
    print SENDMAIL "Subject: $subject \n";
    print SENDMAIL "\n";
    print SENDMAIL "$message \n";
    close(SENDMAIL) or return ("<span class='darkredbold'>Sorry you em
+ail coudn't be send. $!</span>");
    return("<span class='darkbluebold'>Email sended.Contact. Thanks fo
+r your opinion.</span>");    
}
[download]

i add  \n and change
 print SENDMAIL "From: ".$send_from;
for
print SENDMAIL "From: $send_from \n"; Thanks for the help you guys are great, one more time thanks.