my ($fileName) = @_;
	
	unless(CAM::PDF->new($fileName))
	{
		return;
	}
	my $pdf = CAM::PDF->new($fileName);
	
	my $numOfPages = $pdf->numPages();
	
	for(my $i=1; $i<=$numOfPages;$i++)
	{
		$text = $pdf->getPageText($i);
	}
	$pdf->cleanse();

##</code><code>##

Expected stream open tag
20 stream^Mq^Mq^M323 0 0 188 0 0 cm^M /I1 Do^MQ^M...