use Socket      qw( inet_ntoa );
use Net::Domain qw( hostfqdn );

my $my_host = hostfqdn();
my $my_ip   = inet_ntoa scalar gethostbyname $host;