#!/usr/bin/perl
use warnings; use strict;

use PDF::API2;

my $pdf = PDF::API2->new();

my $page = $pdf->page(0); # create new page
$page->mediabox(100, 100);

my $gfx = $page->gfx;

my $import_pdf = PDF::API2->open('overlay.pdf');

my $xoform =  $pdf->importPageIntoForm($import_pdf,
                                       my $_pagenum = 1);

$gfx->formimage($xoform,
                my $_x = 10,
                my $_y = 20,
                my $_scale = .5);

$pdf->saveas('test.pdf');