my @nicdata = networkInfo($platform);

sub networkInfo {
	my $platform_in = shift;
	my ($nics, %nic);
	if ($platform_in =~ /RedHat/) {
		$nics = qx |/sbin/ifconfig| or die("Can't get info from Linux ifconfig: $!\n");
		my @nics = split /(?<=\n)(?=\w)/, $nics;
		for (@nics) {
			my %nic;
			($nic{device}) = $_ =~ /^(eth\d)\s/
			      or next;
			if (/\binet addr:([\d.]+)\s.+?:([\d.]+)\s.+?:([\d.]+)/) {
				$nic{ip}    = $1;
				$nic{bcast} = $2;
				$nic{mask}  = $3;
				#print "Device: $nic{device} has the IP Address of $nic{ip}\n\tMask: $nic{mask}\n\tBroadcast: $nic{bcast}\n";
			}
			if (/^\s+ inet6 addr:\s*(\S+)/m) {
				$nic{ip6} = $1;
				#print "Device: $nic{device} also has IPv6 address of $nic{ip6}\n";
			}
    }
  } elsif ($platform_in =~ /SunOS/) {
		$nics = qx |/sbin/ifconfig -a| or die("Can't get info from Solaris ifconfig: $!\n");
		my @nics = split /(?<=\n)(?=\w)/, $nics;
		for (@nics) {
			my %nic;
			($nic{device}) = $_ =~ /^(fjgi\d)\s/
			      or next;
			if (/\binet addr:([\d.]+)\s.+?:([\d.]+)\s.+?:([\d.]+)/) {
				$nic{ip}    = $1;
				$nic{bcast} = $2;
				$nic{mask}  = $3;
				print "Device: $nic{device} has the IP Address of $nic{ip}\n\tMask: $nic{mask}\n\tBroadcast: $nic{bcast}\n";
			}
			if (/^\s+ inet6 addr:\s*(\S+)/m) {
				$nic{ip6} = $1;
				print "Device: $nic{device} also has IPv6 address of $nic{ip6}\n";
			}
		}		
	}
	# => ENABLE DEBUGGING MODE
	use Data::Dumper;
	print Dumper(\%nic);
	#return (\%nic);
    
  # Do all printing here....
  # this statement needs work.
  # print "Device: $a\n\tIPv4: $b\n\tBcast: $c\n\tMask: $d\n\tIPv6: $e\n";
}