my $webflags = 0;    
        fcntl(STDIN, F_GETFL, $webflags)
            or die "Couldn't get flags for HANDLE : $!\n";
        $webflags |= O_NONBLOCK;
        fcntl(STDIN, F_SETFL, $webflags)
            or die "Couldn't set flags for HANDLE: $!\n";

##</code><code>##

                my $data = '';
                my $buf;
                while(1) {
                    eval {
                        my $status = sysread(STDIN, $buf, 1);    
                    };
                    last if(!length($buf));
                    $data .= $buf;
                    $buf = undef;
                }

##</code><code>##

$server->run(
    [...some other stuff...]
    proto => 'ssl',
    usessl=>1,
    SSL_key_file=>  $config->{server}->{sslkey},
    SSL_cert_file=> $config->{server}->{sslcert},
    [...some other stuff...]
);