Perl PDF::API scale

scale-PDF.pl

	use PDF::API2;

	my $filePath = 'example.pdf';
	my $scale = 0.82; # Scale 82%
	my ($x,$y) = (-13,113); # Coordinates
	
	my $old_pdf = PDF::API2->open($filePath);  # Open existing PDF file
	my $pdf = PDF::API2->new(); # Open empty new PDF Document
	my $page = $pdf->page(); 
	my $gfx = $page->gfx(); 
	my $xo = $pdf->importPageIntoForm($old_pdf, 1); # Return page view from content as Form 
        $gfx->formimage($xo, $x, $y, $scale); # Add our Form as Image at new blank page

	$old_pdf->end; # Close handle to our PDF file ! IMPORTANT
        $pdf->saveas($filePath); 
	$pdf->end;