my $x = sub {print "Hello\n"}
print ref($x), "\n";
__OUTPUT__
CODE