open( MAIL,"|$mailprogram -t" )
        or die "Can't open sendmail! ($!)";
    
    foreach (@address) {
        $from    = $q->param( 'mail_from' || '' );
        $subject = $q->param( 'mail_subject' || '' );
        $message = $q->param( 'html_message' || '' );
        $headers  = "Content-Type: text/html; charset=iso-8859-1\r\n";
        $headers .= "MIME-Version: 1.0\r\n";
        $headers .= "Content-Transfer-Encoding: 7bit\r\n";
        
        print MAIL "To: $_\n";
        print MAIL "From: $from\n";
        print MAIL "Subject: $subject\n";
        print MAIL '$headers';
        print MAIL '$message';
    }

    return close(MAIL);


##</code><code>##

    foreach (@address) {

    open MAIL,"|$mailprogram -t" 
        or die "Can't open sendmail! ($!)";
    
        $from    = $q->param( 'mail_from' || '' );
        $subject = $q->param( 'mail_subject' || '' );
        $message = $q->param( 'html_message' || '' );
        $headers  = "Content-Type: text/html; charset=iso-8859-1\r\n";
        $headers .= "MIME-Version: 1.0\r\n";
        $headers .= "Content-Transfer-Encoding: 7bit\r\n";
        
        print MAIL "To: $_\n";
        print MAIL "From: $from\n";
        print MAIL "Subject: $subject\n";
        print MAIL '$headers';
        print MAIL '$message';

    close MAIL;

    }