$ perl -MList::MoreUtils -e'any {<>} 1..10_000_000'