package require pop3  ;# http://tcllib.sourceforge.net/

     set popsock             [pop3::open $_theHost $_theUser $_thePassword]
     foreach {msgcount size} [pop3::status   $popsock] {}
     set message             [pop3::retrieve $popsock $_index]
     set messages            [pop3::retrieve $popsock $_first $_last]
                              pop3::delete   $popsock $_index
                              pop3::delete   $popsock $_first $_last
                              pop3::close    $popsock

 # Check Mail - a lightweight pop3 client - Thursday May 31, 2001

 package require pop3

 #create a user interface
 proc make_gui { } {

        label .lhost -text "Hostname"
        label .luser -text "Username"
        label .lpass -text "Password"   

        entry .eh -textvariable "_theHost"
        entry .eu -textvariable "_theUser"
        entry .ep -textvariable "_thePassword"

        bind .ep <Return> {open_channel}

        button .b -text "Connect" -command {open_channel}
        button .b2 -text "Disconnect" -command {close_it}

        set popsock ""
        label .lsock -text "Socket:"
        label .lsock2 -relief groove -bd 2

        grid .lhost .eh -sticky ew
        grid .luser .eu -sticky ew
        grid .lpass .ep -sticky ew
        grid .lsock .lsock2 -row 3  -sticky ew
        grid .b -row 4 -columnspan 2 -sticky ew
        grid .b2 -row 5 -columnspan 2 -sticky ew

        .ep configure -show *
        }
 make_gui


 #globals
 global new_messages
 set new_messages 0

 global popsock
 set popsock ""

 #procedures follow
 proc open_channel { } {
        global _theHost _theUser _thePassword popsock
        set popsock [pop3::open $_theHost $_theUser $_thePassword]
        .lsock2 configure -text $popsock
        get_status
        return $popsock
        }

 proc close_it { } {
        global popsock
        close $popsock
        set popsock ""
        .lsock2 configure -text ""
        return $popsock
        }

 proc get_status { } {
        global popsock 
        set my_stat [pop3::status $popsock]
        set new_messages [lindex $my_stat 0]
        show_it $new_messages
        return $new_messages
        }

 proc show_it { var } {
        tk_messageBox -icon info -title "Messages" \
        -parent . -type ok -message "You have $var new messages."       

         #xception-handling, ...  Warn about deletes.  Point to pertinent RFC for index base and other definitions.]
        }

 proc tkerror { errmsg } {
        global errorCode
        set msg [format "Error: %s\nResult: %s." $errmsg $errorCode]
        tk_messageBox -parent . -title Error -type ok\
                -icon error -message $msg
        bell
        }

 wm protocol . WM_DELETE_WINDOW "clean_up"

 proc clean_up { } {
        global popsock
        if {$popsock != ""} {
                close_it
                }
        exit
        }

 wm title . "Check Mail"
 wm deiconify .
 focus .eh

 package require pop3
 # timer indentifier
 set tid {}

 label .l -text "connecting...                          "
 button .chnow -text {Check now} -command {if {$tid!={}} {after cancel $tid} ;checkMailBox}
 pack .l .chnow
 update
 

 proc checkMailBox {} {
        global tid
         wm title . "checking..."
         update
         if {[catch {set mch [::pop3::open -retr-mode list your-pop-server your-user-name your-password]} loginErr]} {
                 tk_messageBox -message $loginErr
                 .l configure -text "[clock format [clock seconds] -format %H:%M:%S]: - ERROR                "
                 wm title . "m - ERROR"
         } else {
                 set mBoxStat [::pop3::status $mch]
                 set systemTime [clock seconds]
         
                 .l configure -text "[clock format $systemTime -format %H:%M:%S]: [lindex $mBoxStat 0] messages on the server..."
                 ::pop3::close $mch 
                 wm title . "m - [lindex $mBoxStat 0]"
                 set tid [after [expr 1000 * 60 * 10] checkMailBox]
         }
 }

 checkMailBox