use LWP::UserAgent;
use HTML::Parse;
use HTTP::Cookies;

my $url = 'http://www.kinopoisk.ru/film/30000';

my $ua = LWP::UserAgent->new('agent' => 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)');
push @{ $ua->requests_redirectable }, 'POST';
$ua->default_headers->push_header('Accept' => 'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5');
$ua->default_headers->push_header('Accept-Language' => 'ru,en-us;q=0.7,en;q=0.3');
$ua->default_headers->push_header('Accept-Encoding' => 'gzip,deflate');
$ua->default_headers->push_header('Accept-Charset' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7');
$ua->default_headers->push_header('Keep-Alive' => '300');
$ua->default_headers->push_header('Referer' => $url );
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt",autosave => 1));

$ua->timeout(15);


my $request = HTTP::Request->new('GET');
$request->url($url);
 
my $response = $ua->request($request);
 
 @nicknames=$response->content;

open (CONTENT, ">CONTENT.html");
print CONTENT join "\n", @nicknames;