Script to delete all mails on POP3 server.

dele.exp

#!/usr/bin/expect

set timeout 20
spawn telnet $env(POP3_SERVER) $env(POP3_PORT)
expect +OK; send "USER $env(POP3_USER)\r"
expect +OK; send "PASS $env(POP3_PASS)\r"
expect +OK; send "STAT\r"
set x 1
while { $x <= 10000 } {
  expect +OK {
    send "DELE $x\r"
    incr x 1
  } ERR {
    send "QUIT\r"
    exit
  }
}
expect +OK; send "QUIT\r"
exit