$ssh->register_handler( 15, sub {
    my($s, $pkt) = @_;
    print "\ngot: ", $pkt->get_str, "\n";
  });