Select Code to Download

use strict;
use warnings;
...
      $count == $expect_count ? "(ok)" : "(bad)",
   );
}

 3 (ok)    5 (ok)    3 (ok)
 3 (ok)    5 (ok)    3 (ok)
...
 0 (ok)   -1 (ok)    0 (ok)
 0 (ok)    8 (ok)    9 (ok)
 0 (ok)    8 (ok)    9 (ok)