use v5.14;
use strict;
use warnings;

open my $fh, '>', "tmp_1222046.txt";
say 'stat($fh): ', join " ", stat($fh);

say '*::stat{CODE} is ', *::stat{CODE} // 'undef';

say '$sub = \&stat;';
my $sub = \&stat;

say '$sub: ', $sub;
say '*::stat{CODE} is ', *::stat{CODE} // 'undef';

say 'stat($fh): ', join " ", stat($fh);
say '$sub->($fh): ', join " ", $sub->($fh);