Собственно, уже не мудрствуя лукаво — кто хоть немного знает перл — разберётся. Вконтакте добавили редиректики, что не помешает доблестному Curl через них пройти и получить куку в файл. #!/usr/bin/perl -w use strict; use WWW::Curl::Easy; use Carp;

Таскаю за собой по всем модулям и скриптам. sub getURL {   my $params = shift;   croak q[HASH needed as param] if ref ($params) ne 'HASH';   croak q[HREF needed in HASH] if (!exists ($params->{href}));   $params->{href} = q[http://].$params->{href} if $params->{href} !~ /^http (s)?:\/\//;   $params->{headers} = 0 if !$params->{headers};   $params->{ag} = qq ($user_agents[rand(($#user_agents+1))]) if !exists $params->{ag};   $params->{timeout} = […]