#!/usr/bin/perl -w
use strict;
use IO::Socket;
use Net::hostent;
# informacion de la conexion avanzada (nombre e ip remota)
my $opt_port = 11000;
my $sock = IO::Socket::INET->new(Proto => 'tcp',
LocalPort => $opt_port,
Listen => SOMAXCONN,
Reuse => 1,
Timeout => 20);
die "Can't setup server: $!\n" unless $sock;
print "socket creado, escuchando por el puerto $opt_port\n";
my $client = $sock->accept();
$client->autoflush(1);
my $hostinfo = gethostbyaddr($client->peeraddr);
my $remotename = $hostinfo->name;
my $remoteaddr = inet_ntoa(${$hostinfo->addr_list}[0]);
print "Conexion recibida desde ".$remotename.",".$remoteaddr."\n";
my $timeout = $sock->timeout();
print "timeout = $timeout\n";
my $nuevo;
while (1) {
$nuevo = <$client>;
print "Recibido: $nuevo\n";
print $client "HTTP/1.1 200 OK\n";
print $client "Content-Type: text/html; charset=iso-8859-1\n\n";
print $client "servidorweb.pl";
print $client "texto de la pagina web
gracias por usar este servidor web";
}
close $client;
print "Conexión finalizada\n";