#!/usr/bin/perl
#Kyoma TAKAHASHI 1999.9.4

#      list-2-ezmlm-unsub mailinglist_directory

$ezmlmunsubbin = '/usr/local/bin/ezmlm/ezmlm-unsub';
$domain = '@ep.sci.hokudai.ac.jp';

$mldir = shift;

while(<>) {

    chop($local = $_);
    if($local ne '') {
	if(/@/) { $address = $local; }
	else { $address = $local.$domain; }
	system "$ezmlmunsubbin $mldir $address";
    }

}