&open_dir('DAX', '/da/transcripts/DAX');

sub open_dir {
	$somedir=shift;
	$dirname=shift;
	
	opendir $somedir, $dirname or die 'Cannot open $dirname: $!';
	
	while(  $file = readdir $somedir) {
   		
                print "$file\n" if -T "$dirname/$file";
		
		        &build_string($file);
	}
}

sub build_string {
	my $transcript=shift;

	use CAM::PDF;
	my $pdf = CAM::PDF->new($transcript);

	my $page_number=$pdf->numPages();
	print "$page_number\n";

	for (1..$page_number) {
		my $text=$pdf->getPageText($_);
		my $conc_text.=$text;
		print "$conc_text\n";
	}
}