#!/usr/bin/perl
#test script

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

if(@ARGV < 1)
{
        printf("Usage:\ntest.pl <port to run on>\n");
        exit();
}

my $sock = IO::Socket::INET->new(
                                Proto=>"tcp",
                                LocalHost=>"Localhost",
                                Listen=>16,
                                Reuse=>1,
                                LocalPort=>$ARGV[0]
                                ) or die("Could not create socket!\n");


my $readSet = new IO::Select();
$readSet->add($sock);

while(1)
{
        my $rhSet = IO::Select->select($readSet, undef, undef, 0);
        foreach $rh(@rhSet)
        {
                if($rh == $sock)
                {
                        $newSocket=$rh->accept();
                        $readSet->add($newSocket);
                } else
                {
                        $buf=<$rh>;
                        if($buf)
                        {
                                printf "$buf";
                        } else
                        {
                                $readSet->remove($rh);
                                close($rh);
                        }
                }
        }
}