#!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet::Cisco;

my $host = 'voip-cme.compsciresources.com';
my $ssh = Net::Telnet::Cisco->new(Host => $host);
$ssh->login('xxxx','xxxx');

my %int;

my @output = $ssh->cmd("show ip interface brief");

foreach my $item(@output){
    chomp $item;
    $item =~ s/^\s+//;
    my($interface,$ip,$ok,$method,$status,$protocol) = split(/\s+/,$item);
    next if !defined $interface or $interface eq 'Interface';
    next if $ip eq 'unassigned';
    $int{$interface}{ip} = $ip;
    $int{$interface}{ok} = $ok;
    $int{$interface}{method} = $method;
    $int{$interface}{status} = $status;
    $int{$interface}{protocol} = $protocol;
}

foreach my $member (keys %int){
    print "$member: ";
    foreach my $mem_value (keys %{$int{$member}}){
        print "$mem_value = $int{$member}{$mem_value} ";
    }
    print "\n";
}