Data Type Perl

sub printem
{
    print shift;
}
$coderef = \&printem;
print (ref $coderef);