use PPI;

my $Document = PPI::Document->new( $ARGV[0] );

my $subs_ref = 
	$Document->find( sub { $_[1]->isa('PPI::Statement::Sub') });

my @sub_names = map { $_->name } @$subs_ref;

print "@sub_names\n";