sub network_to_dotted_quad
{
    my ($address) = @_;

    return sprintf ("%d.%d.%d.%d", $address >> 24,
                   ($address >> 16) & 255,
                   ($address >>8) & 255,
                   $address & 255);
}