#!/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->openScalar($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__