Select Code to Download

my $ip_num = unpack 'N', pack 'C4', split /\./, $ip_dotted;
$ip_num = ( ( $ip_num - 1 ) ^ 1 ) + 1;
$ip_dotted = join '.', unpack 'C4', pack 'N', $ip_num;