нашел сегодня пример с соксами но для бта irc-шного.

use Net::SOCKS;
$server="80.252.130.250"; # IRC сервер
$port="6667"; # IRC порт
$socks="192.168.1.2"; # socks сервер
$pport="1080"; # socks порт

my $sock = Net::SOCKS->new(socks_addr => $socks,
socks_port => $pport,
user_id => 'the_user',
user_password => 'the_password',
force_nonanonymous => 1,
protocol_version => 5);
my $f= $sock->connect(peer_addr => $server, peer_port => $port);
.......
.....
$sock->close();
---------------------------------------------------------------------

можно и с соксами забабхать ...
но и с проксей тож интересно будет посатреть.
счас сяду кодить . незнаю что получиться но думаю должно получиться вродь руки растут от туда же откуда и у всех !