[Mimedefang] Problems with append_boilerplate()

[Mark Richardson]

Hi,

I installed MIMEDefang to make use of the append_boilerplate() function, 
i use version 2.28 with the patched MIME::Tools and i started out with 
the supplied mimedefang-filter.example.
I added the sub filter_end() routine like this:

   sub filter_end {
        my($entity) = @_;
        append_boilerplate($entity, "This is the boilerplate."); 
} "

This is described in the HOWTO, however i get an error in syslog and the boilerplate is not added
to the message, this is the error:
"Jan  6 13:16:13 atlantis mimedefang[1440]: [ID 946266 mail.info] Perl stderr: Undefined subroutine &main::append_boilerplate called at /etc/mail/mimedefang-filter line 308."

Below is all that is logged for the mail transaction which shows that all goes well except the subroutine:
"Jan  6 13:16:12 atlantis sendmail[1444]: [ID 801593 mail.info] h06DFWNx001444: from=<m.richardson at tk.parlement.nl>, size=5, class=0, nrcpts=1, msgid=<200301061316.h06DFWNx001444 at atlantis.parlement.nl>, proto=SMTP, daemon=MTA, relay=localhost [127.0.0.1]
250 2.0.0 h06DFWNx001444 Message accepted for delivery
Jan  6 13:16:13 atlantis mimedefang[1440]: [ID 946266 mail.info] Perl stderr: Undefined subroutine &main::append_boilerplate called at /etc/mail/mimedefang-filter line 308.
Jan  6 13:16:13 atlantis sendmail[1444]: [ID 801593 mail.info] h06DFWNx001444: Milter add: header: X-Scanned-By: MIMEDefang 2.28 (www . roaringpenguin . com / mimedefang)
Jan  6 13:16:19 atlantis sendmail[1447]: [ID 801593 mail.info] h06DFWNx001444: to=<m.richardson at tk.parlement.nl>, delay=00:00:12, xdelay=00:00:05, mailer=smtp, pri=120005, relay=guam1.intern.parlement.nl. [10.100.0.8], dsn=2.0.0, stat=Sent (OK)"

I also tried append_text_boilerplate and append_html_boilerplate, i was also wondering how to append to both HTML and text messages but one of the two would be a nice start !!

Thank you very much for your time,

Mark Richardson.