Well, this isn't a Perl solution, but you might find what you're looking for here: http://www.tuxedo.org/~esr/fetchmail/fetchmail-man.html#25. There's also a discussion there about problems you may encounter doing what you're doing.

Hope this helps!