sub sub_exists {
   my $name = shift;
   no strict qw( refs );
   return exists( &$name );
}