use IO::Socket::INET;
my $sock = IO::Socket::INET->new('www.google.com:80') 
                             or die "Can't bind : $@\n";
print 'IP Address with gateway to internet: ',$sock->sockhost(),"\n";