#!/usr/bin/perl -w

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

my $s = IO::Select->new();
$s->add(\*STDIN);

my $foo;
my $msg;

$s->can_read();

foreach $foo ( $s->can_read() ){
	$foo->recv($msg, 1024, 0);
	print "$msg\n";
}