|
|
14.02.2006
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://www.yourdomain.com/private/');
$req->authorization_basic('user', 'pass');
print $ua->request($req)->as_string;
| |||||||||||||
copyright by reto - created with mytexi