my $fh = \*STDOUT;
tell( 0+$fh );