This is because you are trying to modify the @arr in the parent process from the child process, which won't work as the child process is only modifying its own copy of @arr. You either need to communicate to the parent process the information or store the information somewhere than can be accessed by the parent process. A simple solution would be to have the children write to a file e.g 
use strict;
use warnings;

use Fcntl ':flock';
use Parallel::ForkManager;

my $PORT_NO = '80';           # Default port of HTTP
my $SERVICE = "http";
my $pm = new Parallel::ForkManager(20); # At any instant maximum 20 pr
+ocesses can run simultaneously
my $ip;                 # Stores the IP address supplied by user

if(!$ARGV[0]) {
  print "Program intended to check the machines where webserver is run
+ning. \n";
  print "USAGE: perl wst.pl [ip(xxx.xxx.xxx)] \nInput only 3 octets\n"
+;
  exit;
}
if($ARGV[0] =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}$/) {
    $ip = $ARGV[0];
} else {
    print "Enter IP in valid format (xxx.xxx.xxx) \n";
    print "USAGE: perl wst.pl [ip(xxx.xxx.xxx)] \n";
    exit;
}

## file to write to
open(my $fh, '+>', "ipaddresses.txt") or die "ack: $!";

foreach my $i (1..254) {
  my $ip_add = sprintf("%s.%s",$ip,$i);
  my $pid = $pm->start and next;
  my $val = `nmap -sT -p $PORT_NO $ip_add | grep $SERVICE`;
  if ($val) {
    my $test = (split(/\s+/,$val))[1];
    if ($test =~ m/open/) {
      flock $fh, LOCK_EX;
      print "$ip_add\n";
      flock $fh, LOCK_UN;
    } 
  } 
  $pm->finish;
} 
print "reaping....might take some time\n";
$pm->wait_all_children;

seek $fh, 0, 0;
print "Web Server is running at : ", <$fh>, "\n";

exit 0;

[download]
So there I've replaced the push with a simple write to a file and once the children are finished the parent process simply reads the file. See. flock and seek for more info on the functions used and perlipc for info on communication between processes.
HTH

_________
broquaint

In reply to Re: Parallel::ForkManager Problem by broquaint
in thread Parallel::ForkManager Problem by neeraj

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.