Select Code to Download

use Socket qw( inet_aton inet_ntoa );

...
sub LongToDottedQuad {
   return inet_ntoa(pack('N', shift));
}

sub DottedQuadToLong {
   return unpack('N', (pack 'C4', split(/\./, shift)));
...
sub LongToDottedQuad {
   return join('.', unpack('C4', pack('N', shift)));
}