#!/usr/perl/bin/perl

use IO::Socket;
use IO::Select;

sub AddSocket {
  my $port = $_[0];

  $sock = new IO::Socket::INET(Listen => 1, LocalPort => $port);

  $sock;
}

$one = "6666";
$two = "6667";

$s = IO::Select->new();
$s->add(AddSocket($one));
$s->add(AddSocket($two));

while (@ready = $s->can_read) {
  # Not sure what's next
}