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

while (1) {
        if ($s->can_read(1)) {
                my $foo = <STDIN>;
        }
}