#!/usr/bin/perl

 use strict;
 use warnings;

 use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math);

 my $netaddr = inet_aton( '172.16.249.232' );
 print "net_addr:", $netaddr, "\n";
 printf "net_addrHex:%x\n", $netaddr;

##</code><code>##

net_addr:&#9618;&#9618;&#9618;
Argument "&#9618;^P&#9618;&#9618;" isn't numeric in printf at /foo.pl line 10.
net_addrHex:0