Select Code to Download

use v5.14;
use strict;
use warnings;
...

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

stat($fh): 0 0 33206 1 0 0 0 0 1536590875 1536590875 1536590555
*::stat{CODE} is undef
$sub = \&stat;
...
*::stat{CODE} is CODE(0x340be0)
stat($fh): 0 0 33206 1 0 0 0 0 1536590875 1536590875 1536590555
Undefined subroutine &main::stat called line 18.