#!/usr/bin/perl

use IO::Socket::INET;

my $buffer, $page, $ip, @lines;

$sockfd = IO::Socket::INET->new( PeerAddr => 'www.mediacollege.com',
                                 PeerPort => 80,
                                 Proto => 'tcp'
) or die "No puedo conectarme";

$sockfd->send("GET /internet/utilities/show-ip.shtml HTTP/1.0\r\n");
$sockfd->send("Host:www.mediacollege.com\r\n\r\n");
do {
	$buffer = "";
	$sockfd->recv($buffer, 1024);
	$page .= $buffer;
} while($buffer ne "");

$sockfd->close();

@lines = split "\n",$page;

foreach $line (@lines) {
	chomp $line;
	if($line =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
		print "Tu IP es: $line\n";
	}
}