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;