...
sub _Forked {
    my $ip = shift;
    pipe (READ,WRITE);
    die "Couldn't fork" unless defined (my $pid = fork());
    if ($pid == 0) {
        # CHILD
        my @ping = `ping $ip -w 2 -q | sed -n '\$p'`;
        close (READ);
        select WRITE;
        print "@ping\n";
        close (WRITE);
        #
        exit (0);
    }
    #
    close WRITE;      # <---
    return ($pid);
}
...