Perl相当于Python socks.setdefaultproxy

Question

如何在Perl上为新创建的套接字设置默认代理设置，以便在连接到套接字时，连接通过代理，类似于Python socks.setdefaultproxy所做的。

例如，如果我呼叫LWP::Simple::connect("http:///www.google.com");或打开FTP套接字，请求将通过代理。

是否可以选择挂钩socket子例程，以便每次调用时，连接都通过代理进行？