$sql = "select email,name from database";
while( $row=getrow($sql) ) {
   print "Working on $row->{name}\n";
   eval{$block);
   send_email($row->{email},$block);
  }