Select Code to Download

% perl -MSocket -e 'print inet_aton shift' 65.0.0.65|hexdump
0000000 0041 4100
...
% perl -MSocket -e 'print inet_aton shift' 65.65|hexdump
0000000 0041 4100
0000004

% perl -MSocket -le 'print inet_ntoa inet_aton shift' 01.1.1.10
1.1.1.10
% perl -MSocket -le 'print inet_ntoa inet_aton shift' 01.1.1.010
1.1.1.8

my $_IP = inet_aton( join '.',
    map { s/^0([1-9]\d*)$/$1/; $_ } # strip leading zeroes
    split( /\./, $original_ip)      # of each octet
);