sub sort_by_ip_address
{
    return sort { pack("C4",split(/\./,$a)) cmp pack("C4",split(/\./,$b)) } @_
}