use strict;
use warnings;

use Net::Address::IP::Local;

print ReturnIpAddress();

sub ReturnIpAddress 
{
       my $address;
        select STDOUT;
        eval{
                $address = 'Net::Address::IP::Local'->public ; ## Rece
+iving the current IP ##
        };

        if ($@)
        {
                print "$@";
                return '192.80.160.16'; ##If No IP address received then return a static IP of order "192....." 
        }
        else
        {
                return $address;
        }



}