use strict;
use warnings;

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

my $sock = IO::Socket::INET->new(Proto=>"tcp", LocalHost=>"localhost", 
Listen=>16, Reuse=>1, LocalPort=>3000) 
	|| die("Could not create socket!\n");
my $conn = $sock->accept();
my $sel = new IO::Select($conn);
if ($sel->can_read()) {
	print "can read\n";
}