$username = $ENV{"USERNAME"};
tie @MailingList, 'Tie::File', "release_list.txt"
  or die "Cannot open build number file: $!";

$num_recips = @MailingList;
for ($j=0; $j<$num_recips; $j++)
  {
  $tolist = $MailingList[$j];
  $smtp = Net::SMTP->new('smtpmail.server.com');
  $smtp->mail($username);
  $smtp->to($tolist);
  $smtp->data();

  $smtp->datasend("To: $tolist\n");
  $smtp->datasend("From: newuser\@server.com\n");
  $smtp->datasend("Subject: Build $bldmsg\n");
  $smtp->datasend("\n");
  $smtp->datasend("BUILD SUMMARY:\n");
  $smtp->datasend("\n");
  $smtp->dataend();
  $smtp->quit; 
  }