my $s = IO::Socket::INET->new("gwendragon.de:443") or die $!; # geht
my $s = IO::Socket::SSL->new("gwendragon.de:443") or die $!;  # geht nicht
my $s = IO::Socket::SSL->new("google.de:443") or die $!;  # geht