if ( my $sub = main->can($subname) ) {
    $sub->(...)
}