Подскажите, как на перле передать логин и пасс, чтобы сразу пройти эту гадость и попасть на страницу?
Гугл ничего толкового дать не может...

-----
iNTERNATiONAL CoDE CReW

| Сообщение посчитали полезным:

www.google.com/search?client=opera&rls=ru&q=http+autentification&sourceid=opera&ie=utf-8&oe=utf-8

-----
Shalom ebanats!

| Сообщение посчитали полезным:

SLV
спасибо конечно, но там инфа о том как сделать такую аутентификацию на пхп у себя на сайте, а мне нужно ее пройти на перле
---------
Уряяяя! Нашел!

-----
iNTERNATiONAL CoDE CReW

| Сообщение посчитали полезным:

Блин, вроде все делаю как надо, а авторизация не прозодит...

#!/usr/bin/perl
use LWP::Debug qw(+);
my $browser = LWP::UserAgent->new;

$browser->credentials(
'http://xxxx.xx/index.php',
'Realm-name',
'MyName' => 'MyPass'
);

my $url =
'http://xxxx.xx/index.php';
my $response = $browser->get($url);

die "Error: ", $response->header('WWW-Authenticate') ||
'Error accessing',
"\n ", $response->status_line, "\n at $url\n Aborting"
unless $response->is_success;

В ответ пишет : LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: GET xxxx.xx/index.php
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 196 bytes
LWP::UserAgent::request: Simple response: Unauthorized
Error: Basic realm="Realm-name"
401 Unauthorized
at xxxx.xx/index.php
Aborting at line 16.

Помогите!!!

-----
iNTERNATiONAL CoDE CReW

| Сообщение посчитали полезным:

а там не в base64 передаются учетный данные? попробуй снифером посмотреть как передается

| Сообщение посчитали полезным:

Поюзол HTTP Analyzer v3, чето он нифига не на снифал...
---
Передавал логин и пасс в base64, тоже не помогло. Есть еще какие-нибудь вариатны?

-----
iNTERNATiONAL CoDE CReW

| Сообщение посчитали полезным:

Ну вот, наконец я допинал эту гадину!

#!/usr/bin/perl

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'http://xxxxxx.xx/admin/index.php');
$req->authorization_basic('MyName', 'MyPwd');
print $ua->request($req)->as_string;

-----
iNTERNATiONAL CoDE CReW

| Сообщение посчитали полезным: