Make sure you $| = 1 beforehand, though (or you print to STDERR).

Also useful is something like print STDERR '.' if $. % 100 == 0 to get biff'd every 100 lines.