use IO::Handle;

open($self->{MAILP}, '|-', "/usr/sbin/sendmail -t") or die "Kann Mailprogramm nicht ansprechen\n";

$self->{MAILP}->flush;