sub _num2ip{ 
	my $num = shift;
	return join(".", unpack("CCCC", pack("N", $num)));
}

sub _ip2num{
	my $ip = shift;
	unpack "N", pack("CCCC", split /\./, $ip);
}