===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libnet-server-perl-2.009/examples/httpd-106-#        #my $pid = IPC::Open2::open2(my $out, $self->{'server'}->{'client'}, $uri) || $self->send_501("Couldn't exec: $!");
libnet-server-perl-2.009/examples/httpd:107:#        #warn "Parent--------\n".`ls -l /proc/$$/fd`;
libnet-server-perl-2.009/examples/httpd-108-#        ##my $pid = open(my $out, '-|', $uri) || $self->send_501("Couldn't exec: $!");
##############################################
libnet-server-perl-2.009/lib/Net/Server/Proto.pm-179-    } elsif (-x "/sbin/sysctl") {
libnet-server-perl-2.009/lib/Net/Server/Proto.pm:180:        my $val = (split /\s+/, `/sbin/sysctl -n $key 2>/dev/null`)[0];
libnet-server-perl-2.009/lib/Net/Server/Proto.pm-181-        return defined($val) ? $val : '';
##############################################
libnet-server-perl-2.009/lib/Net/Server.pm-548-        }else{
libnet-server-perl-2.009/lib/Net/Server.pm:549:            $prop->{'peerhost'} = gethostbyaddr($addr, AF_INET);
libnet-server-perl-2.009/lib/Net/Server.pm-550-        }
##############################################
libnet-server-perl-2.009/t/NetServerTest.pm-180-    my $pkg = shift;
libnet-server-perl-2.009/t/NetServerTest.pm:181:    my $ok = eval("require $pkg") && eval {$pkg->import(@_);1};
libnet-server-perl-2.009/t/NetServerTest.pm-182-    ok($ok, "use $pkg", 1) || do { print "#   failed to import $pkg: $@\n"; return 0 };
##############################################
libnet-server-perl-2.009/.pc/spelling-error.patch/lib/Net/Server/Proto.pm-179-    } elsif (-x "/sbin/sysctl") {
libnet-server-perl-2.009/.pc/spelling-error.patch/lib/Net/Server/Proto.pm:180:        my $val = (split /\s+/, `/sbin/sysctl -n $key 2>/dev/null`)[0];
libnet-server-perl-2.009/.pc/spelling-error.patch/lib/Net/Server/Proto.pm-181-        return defined($val) ? $val : '';