sub _verify_pop3
  #
  # 1. SSL-Verbindung zu einem pop3s-Server aufbauen
  # 2. Mit den übergebenen Zugangsdaten authentifizieren
  #
{
    my $host   = shift;
    my $user   = shift;
    my $pass   = shift;
    my $client = Net::POP3->new(
        Host  => $host,
        SSL   => 1,
        Debug => $verbose
    ) || die();
    $client->auth( $user, $pass );
    $client->quit() || die();
    say "POP3 -- $host -- $user -- OK!";
}