C:\test>perl -MTime::HiRes=time  
-E"my @lines; $t=time; $lines[ @lines ] = tell *ARGV while <>; print time - $t;" sample.FastQ
5.8082218170166