programming-examples/perl/Datatype/Using ref function on a subroutine reference.pl

sub printem
{
    print shift;
}

$coderef = \&printem;

print (ref $coderef);