johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -MSocket -E '
my $IP     = q{10.1.1.255};
my $packed = inet_aton( $IP );
printf qq{%8d %8d %8d %8d\n}, map ord, split m{}, $packed;
printf qq{%8s %8s %8s %8s\n}, unpack q{(B8)*}, $packed;'
      10        1        1      255
00001010 00000001 00000001 11111111