printf "%s\n", sub { "foo" };

##</code><code>##

    CODE(0x45f73b0)

##</code><code>##

    my $type = ref $sub;