if (my $sub = main->can('name')) {
  $sub->($parameter);
}