my($num_procs)='3';
my($counter)='0';
foreach my $fw qw(fw1 fw2 fw3 fw4 fw5){
  $counter++;
  if($counter <= $num_procs){
    &do_stuff($fw);
  }
  else{
    wait;
    &do_stuff($fw);
  }
}

sub do_stuff{
  my($fw)=shift;
  local $SIG{CHLD}='IGNORE';
  defined(my $pid=fork) || die "Can not fork!";
    exec "remotelogfile $fw logfile > /var/$fw.log" if(!$pid);
}