#!/usr/bin/perl use warnings; use strict; use File::Find; use Devel::Symdump; my $obj = Devel::Symdump->new(); my @a = $obj->functions(); for my $i (@a) { print "$i\n"; }