sub printem
{
    print shift;
}

$coderef = \&printem;

print (ref $coderef);