Without looking too closely at the code, I have one comment. Gmail's POP service uses SSL. Net::POP3 does not support SSL. Have a look at Mail::Client - which apparently supports SPOP3.
Also have a look at the following:
http://www.issociate.de/board/post/248882/Net::POP3_with_SSL.html for some example code.
Neil