BEGIN {
    print exists(&frobnicate)?1:0, "\n";

    my %OPS = (
        frob => \&frobnicate,     
        knob => \&knobnicate,
    );

    sub runops { print $_->(), "\n" for values %OPS }
}

sub frobnicate { 'frobnicate' }
sub knobnicate { 'knobnicate' }