sub get_local_ip {
  my $host = shift;
  my $port = shift;

   my $sock = IO::Socket::INET->new(
    PeerAddr=> $host,
    PeerPort=> $port,
    Proto   => "tcp");

  return $sock->sockhost;
}

my $localip = get_local_ip($mrtgc2, 5432);