не совсем понятно зачем здесь IO::Socket?
Вот кусок одного из моих скриптов, для примера.
## Инициализируем объект UserAgent\'a
my $ua=new LWP::UserAgent;
$ua->proxy(\'http\', "http://$config->{\'proxy\'}/") if(exists $config->{\'proxy\'});# из конфигов
$ua->timeout($config->{\'timeout\'});# конфиг
$ua->agent($config->{\'agent\'});# конфиг
$ua->cookie_jar(HTTP::Cookies->new(file=>"$config->{\'cookies\'}", autosave=>1,ignore_discard=>1));# файл - из конфигов