Select Code to Download

...

...
  }
  return();
}

($octet1, $octet2, $octet3, $octet4) = split /\./, $$argsref{ip};
$intip = ($octet1 * (256 ** 3)) + ($octet2 * (256 ** 2)) + ($octet3 * 
+256) + $octet4;