use Data::Dumper;
use Parse::Netstat qw(parse_netstat);
my $res = parse_netstat( output => join( "", `netstat -4ntu` ) );
print Dumper map { $_ = $_->{foreign_host} } @{ $res->[2]{'active_conns'} };