my $sub_x = 'Some::Sub';
if (defined(&$sub_x)) {
    print("It's there\n");
} else {
    print("It's not there\n");
}