#!/usr/bin/perl -w
use IO::Socket;
my $sock = IO::Socket::INET->new(Listen => 5,
                                 LocalAddr => '0.0.0.0',
                                 LocalPort => 1111,
                         Proto => 'tcp');
$sock->autoflush(1);

while(1) {
        my $psock = $sock->accept();
        warn "Accept from ",$psock->peerhost,"\n";
        $psock->print("Bienvenido\n");

        while($_=$psock->getline) {

                print $_;
                print $_;
                $psock->print("ok\n");
        }
        warn "Close from ",$psock->peerhost,"\n";
        $psock->close;
}