#!/usr/bin/perl

open (STDOUT, '|sendmail -f spammed -t');

print "Subject: spam complaint
Content-Language: en
To: @ARGV

Dear Ladies and Gentlemen:

My name is Roman Czyborra <http://czyborra.com/> and in one of my
mailboxes I have received the following unsolicited commercial e-mail.
It has passed through at least one of your Internet hosts.  This sort
of unsolicited messages flooding my mailbox is causing me monetary
damages in telephone and storage costs, labour time and impairments of
the vital functioning of my e-mail system.  It is most certainly not
welcome and may already be punishable by your local jurisdiction.
Please take the appropriate measures to fight this sort of Internet
abuse and discipline the user(s) who sent this:

";

while (<STDIN>)
{
	s/^/> /;
	s/[\x80-\xFF]/?/g;
	print;
}

print "

You understand that I cannot spend my days trying to remove all of my
addresses from zillions of mass mailing lists into which I did not ask
to be entered to begin with.

This complaint was generated automagically.

Sincerely,
Roman Czyborra
http://czyborra.com/
"