Select Code to Download

sub get_local_ip {
   my $sock = IO::Socket::INET->new(
...
}

my $localip = get_local_ip();

sub get_local_ip {
  my $host = shift;
...
}

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