Select Code to Download

  my $smtp = Net::SMTP->new(Host => $mailserver, SSL => 0, Debug => 1,
+ Timeout => 30);

...
  }
  warn "(bye...)\n";
  $smtp->quit;