#!/usr/bin/perl -w

use strict;

sub here {
}

foreach my $poss ( qw( here not_here ) ) {
    no strict 'refs';
    if (*{$poss}{CODE}) {
        print "$poss exists.\n";
    } else {
        print "$poss does not.\n";
    }
}