while(( my $line=<$handle> ) && time() < $time+20 && $finished==0)