sub ReturnIpAddress 
{
 select STDOUT;
  my $address = 'Net::Address::IP::Local'->public ; ## Receiving the current IP ##
  if(!$address)
  {
    return $address='192.80.160.16'; ##If No IP address received then return a static IP of order "192....." 
  }
  else
  {
    return $address;
  }    
}