#!/usr/bin/perl

use strict;
use warnings;

my ( $program, $arguments ) = ( "netstat", "-n" );
my @results;

for ( my $n = 0; $n < 5; $n++ ){
    
    print "Opening FH for $n...";
    
    my $pid = open my $fh, "-|", "$program $arguments" or die $!;
    push @results, { pid => $pid, fh => $fh };
    
    print " Done!\n";
}

foreach my $result (@results) {
    
    print "=" x 5, $result->{pid}, "=" x 5, "\n";
    
    my $fh = $result->{fh};
    
    while ( my $line = <$result->{fh}> ) {
    
        print $line;
    }
    
    close $result->{fh};
}

##</code><code>##

    my $fh = $result->{fh};
    
    while ( my $line = <$fh> ) {