$sub = "X::foo";
$cr = main::->can($sub);