sub get_local_ip {
   my $sock = IO::Socket::INET->new(
    PeerAddr=> $mrtgc2,
    PeerPort=> 5432,
    Proto   => "tcp");

  return $sock->sockhost;
}

my $localip = get_local_ip();