#!/usr/bin/perl

use warnings;
use strict;

use CGI qw( :all );
print header( "text/html" );

use Devel::Symdump;

sub funcNames {
    my @a = @_;
    my @b;
    my $i;
    my $rvar;
    my @c;
    for $i (@a) {
        @b = split(/::/, $i);
        $rvar = pop(@b);
        push(@c, $rvar);
    }
    return @c;
}


my $cgisym = Devel::Symdump->new("CGI");
my $mainsym = Devel::Symdump->new();
my @mainfuncs = $mainsym->functions();
my @cgifuncs = $cgisym->functions();
@mainfuncs = funcNames(@mainfuncs);
@cgifuncs = funcNames(@cgifuncs);
my $i;
my $u;
print "In mainspace from CGI:\n";
for $i (@mainfuncs) {
    for $u (@cgifuncs) {
        if ($i eq $u) {
            print "$i\n";
        }
        next;
    }
}