unless ($. % 5000) {
   print "Processed $. records\n";
   # or, just to let them know
   # print ".";
}