A simple, alarm() based perl progress bar for one-liners