Works if Sys::Hostname comes up with a resolvable hostname.

use Sys::Hostname qw(hostname); # not strictly necessary; exports it b
+y default
use Socket;
my($addr) = inet_ntoa( (gethostbyname(hostname()))[4] );
print "$addr\n";
[download]