when i execute the following code, when the script is done my console (bash) does not show any output. if i use zsh the issue does not happen, but unfortunately i'm not able to use zsh outside my development system. I've narrowed the issue down to something with the children. Here is the code that causes my issues:

#!/usr/bin/perl  
use strict;
use warnings;
use Nmap::Parser;
 
my @pids;
my $max = 10;
my $children = 0;

my $net = shift();
if (!defined $net) {
  $net = "192.168.1";
}
foreach my $count (1..10) {
  my $ipaddress;
  $ipaddress = $net . "." . $count;

  my $pid;

  if($children == $max) {
    $pid = wait();
    $children--;
  }
       
  if(defined($pid = fork())) {
    if($pid) {
      #parent
      $children++;
      push @pids, $pid;
    } else {
      #child
      my $ssh = my $rdp = " ";
      my $np = new Nmap::Parser;
      my $nmap_path = "/usr/bin/nmap";
      my $nmap_args = "-Pn -p 22,3389";

      $np->parsescan($nmap_path, $nmap_args, $ipaddress);

      my $host = $np->get_host($ipaddress);
      my @ports = $host->tcp_ports('open');
      foreach my $port (@ports) {
        if ($port == 22 ) {
          $ssh = "Y";
        }
        if ($port == 3389 ) {
          $rdp = "Y"
        }
      }

      printf "%-15s %-4s %-4s\n", $ipaddress, $rdp, $ssh;
      exit;
    }
  } else {
    print "Error: failed to fork\n";
    exit;
  }
}


for my $pid(@pids) {
  waitpid $pid, 0;
}
[download]

I'm hoping to not use any modules for children and just using built-in methods. Any help is appreciated.