Using ref function on a subroutine reference
sub printem { print shift; } $coderef = \&printem; print (ref $coderef);