# Authentication with POP3 :
    proc authpop {popserver user passwd} {
        package require pop3
        ::log::lvSuppress debug
        if {[catch "::pop3::open $popserver $user $passwd" socket]} {
            # it fails
            set answ "Wrong user name or password. Please try again."
        } else {
            # it's good
            close $socket
            set answ "Welcome $user"
        }
    }