#!/usr/bin/perl

use strict;
use warnings;
use Socket;

my $packed_ip = gethostbyname('localhost.localdomain');

if (defined $packed_ip) {
   my $ip_address = inet_ntoa($packed_ip);
   print $ip_address, "\n";
}