perl -le"print tell(STDOUT) for 1 .. 3"
0
3
6