$| = 1; # autoflush required
while (<$fh>) {
   spinner if !($. % 100);
   # process line
}