#use LWP::Simple qw($ua get)
use LWP::UserAgent;

#$ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS} = "IO::Socket::SSL";
#use IO::Socket::SSL; IO::Socket::SSL::set_defaults(SSL_cipher_list => "AES256-SHA256:!AES256-SHA");

#Curl => http://curl.haxx.se/libcurl/c/curl_easy_setopt.html#CURLOPTSSLVERSION
my $ua = LWP::UserAgent->new(
	ssl_opts => {
		SSL_version => 'TLSv12:!SSLv2:!SSLv3:!TLSv1:!TLSv11',#only 1 protocol without !
		verify_hostname => 0,#$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0; (CURLOPT_SSL_VERIFYHOST)
		SSL_verify_mode => SSL_VERIFY_NONE #(CURLOPT_SSL_VERIFYPEER )
	}
);
$ua->timeout(10);
#$ua->ssl_opts(SSL_version => 'TLSv12:!SSLv2:!SSLv3:!TLSv1:!TLSv11');
#print LWP::UserAgent->new()->request(HTTP::Request->new(GET=>"https://www.perl-community.de/"))->content;'
my $response = $ua->get('https://www.perl-community.de/');

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