#printf("hi, this is perl pdf_extractor1.\n");

$filename1 = $ARGV[0];
#printf("hi, this is FILENAME $filename1.\n");

$filename1 =~  s/\.pdf|\.PDF/\.txt/;

#printf("1, this is FILENAME $filename1.\n");

system("./xpdf-2.01/xpdf/pdftotext -raw $ARGV[0]");