Code: Select all
#!/usr/bin/perl
use HTTP::Cookies;
use LWP;
use LWP::UserAgent;
$url = 'https://localhost/zm/index.php';
$user = 'username';
$pass = 'password';
$cookie_jar = HTTP::Cookies->new(
file => "$ENV{'HOME'}/lwp_cookies.dat",
autosave => 1,
);
my $browser = LWP::UserAgent->new;
$browser->cookie_jar($cookie_jar);
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("USER/AGENT/IDENTIFICATION");
$request = HTTP::Request->new(GET => $url);
$request->authorization_basic($user, $pass);
$response = $ua->request($request);
$content = $response->content();
print $content;
Code: Select all
Can't connect to localhost:443