use strict;
use warnings;

use PDF::API2 ;

my $pdfFlname= "./pdf/1405460.pdf" ;
my $pdf ;

 eval { $pdf = PDF::API2->open( $pdfFlname ) ; } ;

 if( $@ ) {
   print "error in opening the pdf $@ \n" ;
   exit ;
  }

my $noOfPages = $pdf->pages;
print "noofpage=" . $noOfPages . "\n" ;

if ( $noOfPages > 24 ) {
	$noOfPages = 5 ;
}
#my $preview_pdf = PDF::API2->new( -file => 'out_104665.pdf' );
my $preview_pdf = PDF::API2->new();

my $i = 1 ;
while ( $i <= $noOfPages ) {
$preview_pdf->importpage($pdf,$i) ;
$i = $i + 1;
}


$preview_pdf->saveas("./out_pdf_api2/out_1405460_new.pdf") ;
print "done.." ;