$i=0;
foreach $user (keys %users) {
  prep info;
  send mail using MIME::Lite::TT::HTML
  $i++;
  if ($i%100 == 0) {sleep 2;}
}