11 $conn="localhost:4433";
12 $conn=$ARGV[0] if $#ARGV >= 0;
13 $bio=SSLeay::BIO::new("connect");
14 $bio->set_callback(sub {print STDERR $_[0]->number_read."\n"; $_[$#_] });
15 $bio->hostname($conn) || die $ssl->error();
18 (($ret=$bio->do_handshake()) > 0) || die $bio->error();
20 (($ret=$bio->syswrite($cmd)) > 0) || die $bio->error();
24 $ret=$bio->sysread($buf,10240);