sub __unwrap_netmask4 {
my $in=shift;
my @out;
return $in if($in =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/);
while (@out<4) {
if ($in>8) {
push @out, '255';