#-------------------------------------------------
#! perl

use IO::Socket;
use LWP::Simple;
$listen_socket = IO::Socket::INET->new(LocalPort => 8080,
					  Listen => 10,
					  Proto => 'tcp',
					  Reuse => 1);
die unless $listen_socket;
warn "Servidor iniciado. Aguardando conexoes... \n\n";
while (my $connection = $listen_socket->accept)
{   
	die unless defined ($child = fork());
	if ($child == 0) {
		obtem_request($connection);
		$connection->close();
		exit;
	} 
	else { 
		warn "Conexao recebida...\n";
		$connection->close();
	}
}

sub obtem_request {   
	my $socket = shift;
	my $temp, $header;
	while ($status = read ($socket, $temp, 1)) {
		$header .= $temp;
		if ($header =~ /\r\n\r\n/ or $header =~ /\n\n/) {
			print $header;
			last;
		}
	}

	$header =~ /GET (.*?) HTTP\/1\.0/s;
	$page = get($1);
	print "Fetching $get\n\n";
		
	print $socket 'Content-Type: text/html; charset=ISO-8859-1'."\r\n\r\n";
	print $socket $page;
}
#-----------------------