PalmaSolutions

#!/usr/bin/perl

use Data::Dumper;

sub GetIpAddresses{
        my $output = qx(ifconfig);
        my $hash = {};
        my $interface;
        foreach my $line (split /[\r\n]+/, $output) {
                if($line =~ m/^([^ ]+)/) {