how to read every 10 line from input text file ?

bh_perl has asked for the wisdom of the Perl Monks concerning the following question:

Hi..

This is my code

open (FILE,"file.txt");
while (my $data = <FILE>) {
  chomp($data);
  print ("$data\n");
}
close(FILE);
[download]

I am plan to read every 10 line of the data and sleep 60 second before next looping. How could i do that ?. Could somebody help me ?

Thank you,

baharin

Back to Seekers of Perl Wisdom