eval {    
  if( !( print_errs(  $got = Net::SSLeay::ssl_read_all($ssl)))){
    if ( $got ne ''){
      Net::SSLeay::ssl_write_all($ssl, $got) or die "$$: ssl write failed";
      print "$got\n";
    }
  }
} || print "ERRORZ\n"; #I never get here due to an untrapable broken pipe error