#!c:\perl\bin\perl -w

use IO::Socket;
use IO::Select;
use Symbol;
use POSIX;


# --------------------------------------------------------------------
# establish SERVER socket, bind and listen.

print "Starting main event loop\n\n";

while(1) {

	my $server = IO::Socket::INET->new(LocalPort => 8080,
                                Type      => SOCK_STREAM,
                                Proto     => 'tcp',
                                Reuse     => 1,
                                Listen    => 10 )
  		or die "Error creating socket: $@\n";

	my $select = IO::Select->new();
	$select->add($server);

	# Wait to accept new connections

    while(($ready) = IO::Select->select($select,undef,undef)) {
        foreach $sock (@$ready) {
            if($sock == $server) {
				print "Incoming connection attempt\n\n";
                # Close socket
                $server->close;
            }
        }
   }
}