% 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