#!/usr/bin/perl -w

use warnings;
use strict;
my $listname = $ARGV[0];
my $msg = 
"From: icculus\@icculus.org\n".
"To: ${listname}\@icculus.org\n".
"Subject: Changing mailing list software...\n".
"\n".
"We're in the process of upgrading icculus.org from its current,\n".
"extremely broken Gentoo install to Ubuntu. The first step of this\n".
"process is replacing as much software as possible that doesn't have a\n".
"maintained package, so I don't have to spend my life hunting down and\n".
"compiling updates from source tarballs. One of those things is ezmlm,\n".
"the mailing list software we've been using here. It's sort of crappy\n".
"software anyhow, so I don't think anybody is going to miss it. We'll be\n".
"using GNU Mailman as a replacement.\n".
"\n".
"So after this email, I'm going to convert this mailing list. Do not\n".
"panic if you send mail today and it bounces, as I might just be in the\n".
"middle of converting the list still.\n".
"\n".
"You will get an email notifying you of the new list details. This will\n".
"confirm that your subscription transferred, and give you the archive\n".
"URL, passwords, etc. If you don't get a notice and you don't see a list\n".
"posting from me saying I'm done, you probably didn't get\n".
"transferred...you can resubscribe with no problem, though.\n".
"\n".
"Email will still go to ${listname}\@icculus.org as usual. Problems can go to\n".
"my email address.\n".
"\n".
"ok, here we go...\n".
"\n".
"--ryan.\n".
"\n";

print($msg);