use strict;
use warnings;

my $vector = '';
vec($vector,fileno(STDIN),1) = 1;
if (select($vector,undef,undef,0.01)) {
    while (<>) {
        print;
    }
}