use IO::Select;
                                                                                
$|++;
my $s = IO::Select->new;
$s->add( \*STDIN );
print "INPUT: ";
if ( $s->can_read(2) ) {
    my $input = <STDIN>;
    print "INPUT: $input";
}
else {
    print "TIMEOUT!\n";
}
print "END\n";