use strict;
use PDF::API2;
use Carp;

my $pdfile = "out.pdf";
my $pdf = PDF::API2->new( -file => $pdfile) or croak "can't open $pdfile as output";
   #open a blank page
   my $page = $pdf->page;
   $page->mediabox ('A4');
   my %font = (
      Helvetica => {
         Roman  => $pdf->corefont( 'Helvetica',         -encoding => 'latin1' ),
      },
   );

# put some text
   my $header = $page->text;
   $header->font( $font{'Helvetica'}{'Roman'}, 24 );
   $header->fillcolor('darkblue');
   $header->translate( 50, 750);
   my $ht = "Hello, this is the first page"; 
   $header->text($ht);

# add pages from other .pdf files;
   my $include;
   foreach $include ("1_3.PDF", "1_4.PDF") 
   {
      $page = $pdf->page;
      $page->mediabox ('A4');
      my $include_object = PDF::API2->open($include);
      my $sourcepage = $include_object->openpage(1);
      my $xo = $pdf->importPageIntoForm($include_object, 1);
      my $gfx = $page->gfx;
      $gfx->formimage($xo, 0, 0, 1.0);
   }
$pdf->save; 
$pdf->end();