#!/usr/bin/perl
use lib '../lib';
use PDF::API2;
use PDF::API2::Util;
$pdf=PDF::API2->new;
$f1=$pdf->corefont('Verdana');
$page = $pdf->page;
$page->mediabox(595,842);
$gfx=$page->gfx;
$gfx->textlabel(50,780,$f1,20,"Hello World!");
$pdf->saveas("$0.BASE.pdf");
$pdf->end();
$pdf=PDF::API2->open("$0.BASE.pdf");
$f1=$pdf->corefont('Verdana');
$page = $pdf->page;
$page->mediabox(595,842);
$gfx=$page->gfx;
$gfx->textlabel(50,780,$f1,20,"Hello World! (2)");
$pdf->saveas("$0.UPDATED.pdf");
$pdf->end();
$pdf=PDF::API2->open("$0.UPDATED.pdf");
$f1=$pdf->corefont('Verdana');
$page = $pdf->page;
$page->mediabox(595,842);
$gfx=$page->gfx;
$gfx->textlabel(50,780,$f1,20,"Hello World! (3)");
$str=$pdf->stringify();
$pdf->end();
$pdf=PDF::API2->open_scalar($str);
$f1=$pdf->corefont('Verdana');
$page = $pdf->page;
$page->mediabox(595,842);
$gfx=$page->gfx;
$gfx->textlabel(50,780,$f1,20,"Hello World! (4)");
$pdf->saveas("$0.STRING.pdf");
$pdf->end();
exit;
__END__