Get the reference to a subroutine by using the form '$codereference = *name{CODE};'
sub printem { print "Hello!\n"; } $codereference = *printem{CODE}; &$codereference;