This is a pretty cool line to add to the top of any ASCII text file.. I mean, nobody notices it, and yet anyone can use it ;)

while(<DATA>) { print; select(undef, undef, undef, (length($_) / 100))
+; } __DATA__
[download]