$n = get_number_from_database();
  my $ip = NetAddr::IP->new($n < 0 ? 2**32 + $n : $n);
  # $ip now contain and IP object which can be printed ,
  # or converted to binary, or checked for
  # subnet membership.