use M;
my $m = new M();
for my $adr (@$m->get_list) {
	$m->send_mail($adr);
	sleep(1) ; #sleep one second
}
$m->over;