Select Code to Download

use Utilities::utilities;
$target_ip1 = GetIPadd(2);

sub GetIPadd 
{
my $deviceinfo = shift @_ or die;
......
}