perl如何通过代理发邮件

目前想做一个短信监控功能，刚好139邮箱支持邮件达到通知，因此只要能用perl发邮件即可，在网上拷贝了一段代码，已经在本机测试能发邮件了，但是正式环境是通过代理上网的，通过代理我就不知道该如何处理，请各位大虾支招，谢谢！最好附上核心代码

   要有一个SMTP Relay作为发信网关，然后就是Net::SMTP连网关发信了，无其他特殊。
用Postfix很容易就配置一个SMTP Relay。

注：真正的SMTP代理实现很复杂，不清楚有无开源软件，我知道的都是商业产品。
所以你只需配置一个普通的SMTP Relay就可以了。