open NETSTAT, "$program|" or die "Cannot open netstat $!\n";
  while (<NETSTAT>) {
    if(/(\w+)\s+(\w+:\w+)\s+(\d+\.\d+\.\d+\.\d+):\w+\s+(\w+)/) {
      print "$1, $2, $3, $4\n";
      # protocol, localAddress, foreignAddress, state
    }
  }