#!/usr/athena/bin/perl
$passwd=`cat /mit/kolya/.priv/bed-majordomo-passwd`; chop $passwd;
$name=$ARGV[0];
$list=$ARGV[1] || "linux-announce";
$ctl='majordomo@bed.mit.edu';
print	"echo \"approve $passwd unsubscribe $list $name\" | ",
	"/usr/bin/mail $ctl\n";