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

##</code><code>##

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