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();