#!/usr/bin/perl
use strict;
use warnings;

use Sys::Hostname;
use Net::Address::IP::Local;
use Net::Netmask;

my $hostname = hostname;
my $ip       = Net::Address::IP::Local->public;
my $netmask  = Net::Netmask->new( $ip )->mask;

print "hostname : $hostname\n";
print "IP       : $ip\n";
print "Netmask  : $netmask\n";

__END__


##</code><code>##

$ perl 1140691-2.pl
hostname : localhost
IP       : 10.5.50.27
Netmask  : 255.255.255.255
$

##</code><code>##

use Sys::Hostname;
use Socket;

my $hostname = hostname;
my $ip       = inet_ntoa( scalar gethostbyname( $hostname ) );