#!/usr/bin/perl

open(MAIL, "| /usr/lib/sendmail -oi -t") or die "can't open sendmail";
while (<STDIN>) {
    print MAIL $_;
}
print MAIL qq(
---
Werbung für den hyper genialen ultra starken affengeilen huschi
);
close MAIL;