#!/usr/bin/perl -w

use strict;

my $name = "chromatic";
my $quest = "nefarious symbol wrangling";

sub findme {
	# just has to be defined
	return 0;
}

foreach (keys %main::) {	# use whichever package you prefer
    no strict 'refs';		# else the next line fails
    if (defined *{$_}{CODE}) {
        print "$_\n";		# could be pushed onto an array, into a hash
    }
}