Perhaps its just me, but I always find the construct:

if ( ( whatever ) == 0 ) {
}
[download]

easier to read, when written like so:

unless ( whatever ) {
}
[download]

So, I would have written the above as:

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

-Blake
off to try that cool -s trick for status bars....