IO-can_read.txt

use IO::Select;

my $io = IO::Select->new(*STDIN);

if($io->can_read(2)) {
	my $line = readline(*STDIN);
	chomp $line;
	print "$line\n";
}
else {
	print "Timeout!\n";
}