my $sub_x = 'Some::Sub';
my $Result = 'Bad';
if (exists &{$sub_x}
        && (ref $sub_x eq 'CODE' || ref $sub_x eq '')) {
        $Result = 'Good';
    }
print $Result . "\n"