i just wrote a script a few weeks ago to check a pop3 account, download emails, check and process attachments using
Net::POP3 and
Email::MIME. by "map my email box" do you mean use IMAP?
Net::IMAP should do it for you.
perl -e"\$_=qq/nwdd\x7F^n\x7Flm{{llql0}qs\x14/;s/./chr(ord$&^30)/ge;print"