#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]");
##</code><code>##

yao@ubuntu:~/perl$ xpdf-2.01/xpdf/pdftotext 1.pdf
bash: xpdf-2.01/xpdf/pdftotext: Permission denied
yao@ubuntu:~/perl$ xpdf-2.01/xpdf/pdftotext 2.pdf
bash: xpdf-2.01/xpdf/pdftotext: Permission denied
yao@ubuntu:~/perl$ cd xpdf-2.01
yao@ubuntu:~/perl/xpdf-2.01$ cd xpdf
yao@ubuntu:~/perl/xpdf-2.01/xpdf$ pdftotext /home/yao/perl/1.pdf