Re: How do I get the local internet IP address?

[Anonymous Monk]

Same as above, but you can use this to resolve any address through the DNS setup (/etc/resolv.conf or the /etc/hosts file).

use Socket;
my $hostname = "somehost.ext";
my @addr = inet_aton($hostname) or return "Unknown or invalid host.";

my($a,$b,$c,$d) = unpack('C4', $addr(0));
#change the $addr() to brackets, this form filters brackets out.
my $ip = "$a.$b.$c.$d";
print $ip;