my $ip = pack(C4 => split /\./, $src);