#!/usr/bin/perl
use warnings;
use strict;
use PDF::API2;

my $pdf=PDF::API2->new; # Create a new top-level PDF document
my $font = $pdf->corefont('Helvetica');

my $page1 = $pdf->page();        # Create 1st page
$page1->mediabox(500, 700);  # Set the page dimensions
my $text1 = $page1->text();
$text1->translate(50, 650);  # Position the text
$text1->font($font,12);
$text1->text("Page 1");

my $page2 = $pdf->page();         # Create 2nd page
$page2->mediabox(500, 700);  # Set the page dimensions
my $text2 = $page2->text();
$text2->translate(50, 650);  # Position the text
$text2->font($font,12);
$text2->text("Page 2");

$pdf->saveas("$0.pdf");
$pdf->end;
exit;