C:\test>perl -MTime::HiRes=time -MTie::File -E"$t=time; tie my @lines, 'Tie::File', 'sample.fastq'; say $#lines; say time-$t;"
9999999
60.3115701675415