#!/usr/bin/perl
  use strict;
  use warnings;
my $program = 'netstat -a';
my @lines;
my ($protocol, $localAddress, $foreignAddress, $state);

  open NETSTAT, "$program|" or die "Cannot open netstat $!\n";
  @lines = <NETSTAT>;
  close NETSTAT;

foreach (@lines) {
  /(\w+)\s+(\w+:\w+)\s+(\d+\.\d+\.\d+\.\d+):\w+\s+(\w+)/;
  if($1, $2, $3, $4) {
    $protocol = $1;
    $localAddress = $2;
    $foreignAddress = $3;
    $state = $4;
    print "$protocol, $localAddress, $foreignAddress, $state\n";
  }
}

##</code><code>##

  Useless use of a variable in void context at netstatReader.pl line 26.
  Useless use of a variable in void context at netstatReader.pl line 26.