use warnings;
use File::Find;
die ("\n\n\tsyntax: pdftotextscript <folder path>\n") if ($#ARGV != 0);

my $root_dir = qq/"$ARGV[0]"/;

find(\&fix, $root_dir);

sub fix {
   return if ! /\.pdf?/i;
   system("c:\/Tools\/pdftotext.exe $_");
  }