$ perl -E '
    use Scalar::Util "reftype";

    sub routine { 1; }
    my $x = \&routine;
    say $x;
    say ref $x;
    say reftype $x;
    say sub { 1; };
'
CODE(0xa0004a3c0)
CODE
CODE
CODE(0xa0007e370)

##</code><code>##

function { code } args

##</code><code>##

$ perl -E 'use List::Util; say prototype "List::Util::reduce"'
&@

$ perl -E 'use Test::Exception; say prototype "Test::Exception::throws_ok"'
&$;$