my ($in, $out) = ('', '');
vec($in,fileno(STDIN),1) = 1;           # look for key on stdin 
select($out = $in,undef,undef,$timeout);# wait up to this long