[Perl] Funcion para reconocer nuestra IP

Hola a todos.

Aca les dejo una funcion que hice para reconocer
nuestra IP sin necesidad de usar paginas webs con ese molesto
servicio online

1 2 3 4 5 6 7

#By pr0xXx0r use IO::Socket; sub get_ip { my $get = gethostbyname(""); return inet_ntoa($get); }

Ejemplo de uso

1	print get_ip();