#!/usr/bin/env perl
use Data::Dumper;
use Linux::Proc::Net::TCP;
use Linux::Proc::Net::UDP;
my $table_tcp = Linux::Proc::Net::TCP->read;
my $table_udp = Linux::Proc::Net::UDP->read;
my @rem_address;
push (@rem_address, map {$_ = $_->rem_address;} $table_tcp->listeners);
print Dumper @rem_address;