$ perl -wE 'sub f { 42 } say \&f'
CODE(0x7ff5d90314f0)