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