http://qs1969.pair.com?node_id=873345


in reply to how to read every 10 line from input text file ?

sleep after every 10th line. See also $. 
open (FILE,"file.txt");
while (my $data = <FILE>) {
  chomp($data);
  print ("$data\n");
  sleep 60 if $. % 10 == 0;
}
close(FILE);

[download]

In Section Seekers of Perl Wisdom