sub over {
  $self = @_;
  $self->{SMTP}->quit;
[download]

Then i add the sub in end of my a.pl

  ...
  use MySMTP;
  $mail = new MySMTP();
  my @lists = $mail->get_list();
  
  for my $addr (@list) {
      $mail->sendMail($addr,"how are you");    
  }
  $mail->over();  ## Add here
[download]

As an afterthought, since you already fixed it. Here's a peice of advice that may or may not work for you. I am currently working with SMTP for work with a postfix mta system. you may want to consider using threads and Thread::Queue. then you queue up your messages, create a pre-defined number of threads and just have them pull from the queue then join when they are done. Very fast very efficient.


"One future, two choices. Oppose them or let them destroy us" - Propaghandi

Thank your reminder.I will try it in the future.Can you show some snippet of code how to finish the idea by Thread::Queue.


BTW,I am also manage our Postfix MTA,just a jackaroo:)
Regards,
-pysome