use Socket qw( inet_aton inet_ntoa );

sub dotted_quad_to_network { return unpack 'N', inet_aton $_[0] }
sub network_to_dotted_quad { return inet_ntoa pack 'N', $_[0] }