my $file="parsedtext.txt";
open OUTTRANS1, ">$file";																									
(-w OUTTRANS1) || die "Couldnot open $file! \n";	

print OUTTRANS1 $pdf->text;