#!/usr/bin/perl -wT
use strict;
use warnings;

use LWP::UserAgent();
my $ua = LWP::UserAgent->new();
$ua->timeout(10);
$ua->env_proxy();
#$ua->ssl_opts(SSL_ca_file => '/etc/ssl/certs/ca-certificates.crt');

my $response = $ua->get('https://solr-server.example.org:8443/');

if ( $response->is_success ) {
    print $response->decoded_content;    # or whatever
}
else {
    print $response->decoded_content;    # or whatever
    die $response->status_line;
}