my $fh = \*STDOUT;
no strict 'refs';
tell( *{ ''.(0+$fh) } );