From:	Achim Grolms	Date:	Sun May 28 08:13:08 2006
Subject:	Net::POP3 detecting if a server does *not* support SASL authentication

Hello,

I am trying to use Net::POP3 to detect if a POP3 Server
does *not* support SASL authentication.

My idea is to use CAPA and check if SASL exists in servers answer:

#------------------------------------------------------------------
#! /usr/bin/perl -w
use strict;
use Net::POP3;

my $targethost = 'pop.web.de';

my $pop = Net::POP3->new( 'pop.web.de' ) || die "can not connect to 
$targethost ";
my $capa = $pop->capa() || die '$pop->capa() failed';

unless ( exists $capa->{'SASL'} ) {
    print "\n I am sure the server does not support SASL\n";
}
#------------------------------------------------------------------

My question is:
Is this code doing what I want, or is it possible the Server
supports a SASL mechanism (like GSSAPI), but does not answer the
CAPA question with 'SASL'?
(Then my code is wrong!)

Thank you,
Achim