Quick perl script to STAT a pop mailbox and delete all messages in it.