#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;
}

use IO::Socket::SSL;

my $client = IO::Socket::SSL->new(
        PeerAddr => 'www.perl-community.de',#AES256-SHA = TLSv1 (1.0)
        PeerPort => '443',
        Proto    => 'tcp',
        SSL_verify_mode => 0,#0x00?
        SSL_version => 'TLSv12:!SSLv2:!SSLv3:!TLSv1:!TLSv11' #best is TLSv12
);

if(defined $client){
        #print $client->get_cipher() . "\n";#list => http://www.openssl.org/docs/apps/ciphers.html#CIPHER_STRINGS
        print $client "GET / HTTP/1.0\r\n\r\n";
        print <$client>;
        close $client;
}else{
        warn "I encountered a problem: ",IO::Socket::SSL::errstr();
}
exit;