my $s = IO::Socket::SSL->new("www.rationalgalerie.de:443") or die $@;

$s->print("GET / HTTP/1.0\r\n");
$s->print("Host: www.rationalgalerie.de\r\n");
$s->print("\r\n\r\n");

while( read($s, my $buffer, 1024) ){
    print $buffer;
}