use strict;
use warnings;

package AA;
sub one {
    print("Inside AA::one\n");
}

sub two {
    print("Inside AA::two\n");
}

package main;
use lib "/home/blah/Devel-Symdump-2.08/share/perl/5.8.8/";
use Devel::Symdump;

our @pack = qw(AA);
our $oj = Devel::Symdump->new(@pack);

print $oj->functions;

##</code><code>##

our @pack = qw(AA Devel);