perl -e '
  package Foo; 
  sub bar{42}; 
  package main; 
  print defined *Foo::bar{CODE}'
1