foreach $address (@book) 
{sendmail($address, $the_poem);}
@complaints=getmail;