#!/usr/bin/perl -w
$| ||= 1;
use strict;
my $MaxProcessCount = 5;
for (1 .. $MaxProcessCount) {
my $pid = fork;
die "Unable to fork!" unless defined $pid;
if($pid == 0) {
SubFunction('localhost');
exit 0;
}
}
sub SubFunction {
my ($host) = @_;
print "- process: $$\n";
my $fh;
open($fh, '-|', "ping.exe $host") or die "couldn't open pipe!";
print while (<$fh>);
close($fh);
}