#!/usr/bin/perl -w

use strict;

use File::Find;
use File::Slurp;
use Pod::Select;
    
my $dir = "h:/temp/TestAppNotes/Pod/";

my %podstrings;
find ( sub {
	return if -d;
	### I would like to assign
	### $filestrings{$File::Find::name} = podselect $File::Find::name;  

	my $tmpfile = "$dir/tmpfile.txt";	
	podselect {-output => $tmpfile}, $File::Find::name;
	if (-s $tmpfile) {
	    $podstrings{$File::Find::name} = scalar read_file($tmpfile)
	}
}, $dir);

for (keys %podstrings) {
	printf "%s   %d\n", $_, -s $_;
}

__END__