Try the same with eval. Here is the code, I have added eval part

use strict;
use warnings;

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

print ReturnIpAddress();

sub ReturnIpAddress 
{
        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 th
+en return a static IP of order "192....." 
        }
        else
        {
                return $address;
        }



}
[download]